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The publication includes descriptions of the format of the Sys- 
tem Library, the system assembly parameters, the System Editor 
control cards used for system maintenance, and the contents of 
the Nucleus. It also contains detailed descriptions of the Processor 
components. 

Separate publications describe the map, Fortran iv, cobol, and 
Debugging languages, the Input/Output Control System, and the 
Generalized Sorting System. Other related publications contain 
information needed by applications programmers, instructions for 
machine operators, and information on the contents of the Sub- 
routine Library, which is a Processor component. 

Note: The ibm 1302 Disk Storage Unit is now designated the 
IBM 2302 Disk Storage Unit; there has been no change in the unit 
itself, in the applications for which the unit may be used, or in the 
programming parameters used to specify tho.se appHcations. Refer- 
ences in this publication to ibm 1302 Disk Storage Units should be 
understood to be references to the ibm 2302 Disk Storage Units. 








Preface 



This publication contains editing instructions and 
descriptive information useful to systems programmers 
who require a thorough understanding of the ibm 
7040/7044 Operating System. It includes descriptions 
of the format of the System Library, the system assem- 
bly parameters, the System Editor control cards, and 
the contents of the Nucleus. It also includes detailed 
descriptions of the Processor components. 

It is recommended that one person at each installa- 
tion be assigned the responsibility of authorizing and 
documenting all changes made to the ibm 7040/7044 
Operating System at the installation. This ensures ade- 
quate control over the contents of the System Library. 
This person and his assistants are the systems program- 
mers for whom this publication is written. 

The machine requirements of the ibm 7040/7044 
Operating System are given in the publication IBM 
7040/7044 Operating System (16/32K): Programmers 
Guide, Form C28-6318. 

It is assumed that the reader of this publication is 
famiUar with the contents of the following ibm 
publications : 

IBM 7040/7044 Principles of Operation, Form 
A22-6649 

IBM 7040/7044 System Summary, Form A28-6289 

IBM 7040/7044 Operating System (16/32K): Pro- 
grammer's Guide, Form C28-6318 



Major Revision ( October 1965 ) 

This publication, Form C28-6339-4, supersedes Form C28-6339-3 and tech- 
nical newsletters N28-0520-0, N28-0525-0, and N28-0529-0. Significant 
changes are indicated by a dot (•) to the left of the heading on the Con- 
tents page. 



Copies of this and other ibm publications can be obtained through ibm Branch Offices. 

Address comments concerning the contents of this publication to: 

IBM Corporation, Programming Systems Publications, Dept. D39, 1271 Avenue of the Americas, New York, N.Y. 10020 



1963 by International Business Machines Corporation 
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System Library 



The IBM 7040/7044 Operating System consists of a col- 
lection of monitors, processors, and installation pro- 
grams, which are organized into a System Library on 
an external storage medium. The System Library is 
composed of absolute programs and relocatable sub- 
routines. In the distributed version, subroutines and 
tables are organized into the Subroutine Library 
(iblib), which is loaded by the Loader (ibldr), used 
for relocatable object programs. The System Loader 
(s.sldr), which is an absolute loader in the Nucleus, 
obtains system phases (for processing compilations, 
assembhes, sorts, etc. ) from the System Library. 

The System Library is generated by the System Edi- 
tor on one or two system units. 



Format 

Every System Library generated by the System Editor 
is composed of absolute core storage loads, or phases. 
A phase of an edited program is composed of one or 
more physical records, or blocks, each chained to the 
next for loading by the System Loader. This chaining 
permits phases to be scatter-loaded into core storage, 
if necessary. 

The blocks of a phase appear in a System Library in 
ascending order according to their load addresses. The 
records are ordered and chained in this way to mini- 
mize searching time during later modification to any 
part of the phase. A simple matching process between 
the records in the library and the alteration records is 
followed. Ordering and chaining blocks may also result 
in longer blocks for those programs that contain many 
overlaid portions. 

The blocks are chained to each other by a word ap- 
pended to the last word of each block. This additional 
word does not cause any portion of the program already 
loaded to be lost, as the System Loader saves and re- 
stores the locations so overlaid. 

The chain word contains the load address and the 
word count of the next block. With this information, 
the System Loader can locate and save the word that is 
about to be overlaid by the following chain word. Bit 
2 of the prefix of a chain word is set on when the next 
record contains a fill word. A fill word is apperided to 
any absolute record that is only one word in length, 



since all blocks must be a minimum of three words. The 
chain word of the last record of the phase differs from 
the chain words of the other records in that phase: its 
sign is minus, it has a word count of zero, and it con- 
tains the address of the entry point to the phase. 

The System Loader finds the load address and word 
count of the first block in the Table of Contents. 

The first block in each phase is prefixed by a one- 
word BCD name that is used to verify loading of the 
System Library and to faciHtate editing. This bcd phase 
name of six or fewer left-justified characters is prefixed 
to the block during editing from' the phase name ap- 
pearing on the INSERT card, or it is taken from the first 
word of Dup input records. The addition of this prefix 
word does not cause the location below the load point 
of the record to be lost, since the System Loader saves 
and restores that location. 

This type of System Library format permits use of a 
7040/7044 Data Processing System with limited core 
storage to edit a library for a computer with a greater 
capacity. More dependable loading of the system 
phases can be expected with shorter records and pre- 
determined input/output command words. Scatter- 
reading must be simulated for those programs not 
assembled in contiguous order. 

Figure 1 illustrates the absolute format of a program 
phase in the System Library. The symbols used in that 
figure are defined as follows: 



BCD phase name used to designate the core storage load; 
for example, FTCl, MAPI 

addrn 

Load address of the next block 

numn 

Number of words in the next block 
entry 

Entry point for the core storage load 

The extent of a phase is determined by the input to 
the assembler and the Loader, and by the size of core 
storage; it is not influenced by the length of a block. 
The length of a block is determined by the length of 
the Editor's buffer, by the maximum length of a physi- 
cal record on an external storage medium, or by the 
block size specified by the user on the $ibedt card, 
whichever is the smallest. 
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Block 1 



Block 2 



Any number 
of blocks 



Block n - 1 



Block n 



BCI 


1, name 




PZE 


acidr2, , num2 




• 


PZE 


addrS, , num3 










PZE 


addrn, , numn 






MZE 


entry 



Figure 1. System Library Format 



Structure 

The minimum System Library generated by the Sys- 
tem Editor has the following as its first six phases: 

IBOOT 

Device-oriented Bootstrap routine 

IBNUC 

The system communication and data words, the Nucleus 
routines, and a portion of IOCS ( lOEX and lOOPl ) 

IBSUP 

The combined monitors, that is, the dependent links under 
IBSUP: IB JOB, which includes IBEDT, and MONITO, which 
includes IMSRT 

IBTOC 

The Index and Table of Contents for the System Library 

IBDMPl 

Phase 1 of the Dump program 

IBIOC 

IOOP2, lOLS, and lOBS 

In addition, the following phases are required for 
system operation: 

IBDMP2 

Phase 2 of the Dump program 

IBDMP3 

Phase 3 of the Dump program 

A map of the contents of the System Library can be 
obtained during an edit run, using the System Editor. 

Since the iboot phase that is edited into the System 
Library depends on the type of device that is being 
used to produce the new library, several forms of iboot 



are contained within the System Editor. The distribu- 
ted version of the System Editor includes iboot pro- 
grams for magnetic tape and for disk and drum storage. 

The IBOOT and ibnuc phases must be located on 
s.sLBi.. The other system phases may be on either 
s.SLBi or s,SLB2, but all the blocks that make up a single 
phase must be on the same library unit. The iboot, 
iBNUC, IBSUP, IBTOC, and IBIOC are loaded at initial 
start. Pressing load brings in an iboot routine, which 
loads the Nucleus, including ioex and loopi with select 
and error recovery routines for s.slbi. Control is then 
transferred to the housekeeping routine of the Nucleus. 

The decrement and address of the first word in the 
System Library contain the version number and the 
modification number, respectively, of the system cur- 
rently in operation. These numbers are loaded into 
octal location 100, and control is transferred to octal 
location 101. The housekeeping routine later moves the 
contents of octal location 100 to location s.slvl. 

The housekeeping routine transmits the trap words 
to lower core storage, overlaying the Bootstrap routine. 
The second section of the housekeeping routine sorts 
the system control blocks into ascending order, and the 
third section attaches the input/output devices, accord- 
ing to the specifications used in assembling the Nucleus. 
After initializing the Nucleus, the housekeeping routine 
transfers control to s.sret, and the System Loader loads 
the combined monitors and the higher levels of iocs, 
permanently overlaying the housekeeping routine. 

During operation of the System, the Supervisor, the 
Table of Contents, and the Input/Output Control Sys- 
tem phases ( ibsup, ibtoc, and ibioc ) are brought into 
core storage when required. 



Table of Contents 

The System Loader can pre-position the devices as- 
signed as system library units so that they are correctly 
positioned when the System Loader is called to provide 
the next phase of a system program. This facility is par- 
ticularly valuable when the System Library is distribu- 
ted over more than one external storage device or when 
several system components share a common phase. The 
use of portions of the Macro Assembly Program by both 
the COBOL and Fortran compilers is an example of the 
latter. 

To pre-position devices, the System Loader refers to 
the Abbreviated Table of Contents in the Nucleus, 
which indicates the phases that compose the pertinent 
section of the System Library. As each phase of a sys- 
tem program is called to be executed, the System 
Loader checks the Abbreviated Table of Contents be- 
fore loading and transferring control to the phase. 
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The Abbreviated Table of Contents is set up by each 
subsystem monitor from sections of the Table of Con- 
tents in the ibtoc logical record. The System Monitor 
sets up the Abbreviated Table of Contents for pro- 
grams that are executed by a $execute card. The 
Loader, the Reload Program and the Restart Program 
create the Abbreviated Table of Contents for object 
programs. 

An entry in the Table of Contents consists of three 
words; there is one entry for each phase of every sys- 
tem component edited into the System Library. Thus, 
a system component of n phases has n entries in the 
Table of Contents. These entries are arranged in the 
table in a sequence that reflects the logical flow of the 
component from phase to phase. The order of the 
entries is specified on the calls card. ( For a description 
of the CALLS card, see the section "Editor Parameter 
Cards." ) 

Among the entries for a particular system component, 
there may be entries for some phases used in common 
with other system components. For example, some 
phases of the Macro Assembly Program are used for 
compiler input. Entries of this type are included if the 
names of the common phases appear on the calls card 
defining the logical flow for the system component. 

The information in each Table of Contents entry is 
used to locate a particular logical record in the System 
Library. To position the system library unit, the unit 
number and the block number of the first block of the 
phase are given. To load the phase into core storage, 
the load address and the word count of the first block 
are provided. 

The first three words of the Table of Contents are 
shown in Figure 2. In the figure, loc is the location 
of the first word of the Index or Table of Contents, and 
length is the number of words in the Index or Table of 
Contents. 

The format of an entry in the Table of Contents is 
shown in Figure 3. The symbols used in that figure are 
defined as follows: 

pfx 

A prefix describing the unit on which the phase resides, as 
follows: 

Library unit; an entry created by the System Editor. 
Utility unit; an entry created by other programs to 
use the System Loader to load a phase in library for- 
mat from a utility unit. (Entries of this type do not 
appear in the Table of Contents, but can be placed 
in the Abbreviated Table of Contents. ) 
pfn 

A prefix containing the unit number. For a library unit, the 
prefix is either 1 or 2; for a utility unit, through 7. If the prefix 
is 0, the unit number is in the decrement, 
lognam 

The BCD phase name. 



PZE 
MZE 



la 

Load address of the first block. 

wdct 

Number of words in the first block.' 

recno 

Record number of the first block. The record number of the 
first block of the System Library is zero, 
res 

Reserved for use by the Editor. 

unit 

Unit number (0-99) if pfn is zero, otherwise reserved for 
use by the Editor. 



Word 1 


BCI 


1, IBTOC 


Word 2 


PZE 


loc, , length of Index 


Words 


PZE 


loc, , length of Table of Contents 



Figure 2. The First Three Words of the Table of Contents 



Word 1 


BCI 


1, lognam 


Word 2 


pfx 


la, res, wdct 


Words 


pfn 


recno, , unit 



Figure 3. Format of an Entry in the Table of Contents 



Word 1 
Word 2 



BCI 
PZE 



1, sysnam 
reladd, , count 



Figure 4. Format of an Entry in the Index 



Index 



The Index is provided to aid a monitor in finding the 
pertinent entries in the Table of Contents. It contains 
a two-word entry for each system component, as 
shown in Figure 4. Word 1 contains the bcd name of 
the system component. This is usually the name used 
on the card that causes control to be passed to a par- 
ticular program, such as ibftc for the Fortran Com- 
piler. The address of Word 2 contains the location, 
relative to the beginning of the Table of Contents, of 
the first word of the entries for the system coniponent. 
The decrement of Word 2 contains the total number of 
words occupied by the entries for the system 
component. 



System Programs 

Following the ibtoc phase are the phases of systems 
edited into the System Library, as well as any sub- 
routine libraries, such as iblib, generated by the Sys- 
tem Editor. The sequence of programs in the Library, 
the position of the end-of-file trailer label, and the 
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distribution of the System Library between the hbrary If the System Library resides on one unit, the last 

units are controlled by parameters that are suppHed as record on the unit is the 120-character end-of-file 

input to the System Editor. For example, Phases 1 and ( ieof) trailer label. If the library is distributed between 

2 of the Editor program can be located anywhere in the two units, the end-of-reel ( ieor ) trailer label is the last 

System Library. record on the primary unit. 



System Assembly 



The Nucleus of the ibm 7040/7044 Operating System 
is assembled using the distributed version of the 
Nucleus and the Macro Assembly Program. This as- 
sembly is divided into two core storage loads or phases 
that are delimited by a tcd pseudo-operation in the 
MAP symbolic deck. This deck contains all of the 
installation options that determine the contents of the 
Nucleus. 

All other system parts are assembled in relocatable 
form. Their absolute locations are determined by the 
Loader (ibldr) after the Nucleus is established. 

Assembly Parameters 

The options that permit an installation systems pro- 
grammer to specify much of the content of the Nucleus 
during assembly of the system are described in the 
following paragraphs. 

Machine Configuration 

It is necessary to define the configuration of the 7040/ 
7044 Data Processing System for which the Operating 
System is being used, so that the proper amount of core 
storage can be allotted for unit control blocks and sys- 
tem control blocks. The map symbolic statements used 
to define the number of input/output devices present 
on each channel are shown in Figure 5. Each of these 
definitions must be included in the symbolic input deck 
for the Nucleus, even if its variable field is zero: 

The letters xyz denote the number of devices attached 
to 1414 Input/Output Synchronizer interfaces, num- 
bered 1, 2, and 3, respectively. The number of devices 
that may be attached to an interface is limited as 
follows: 

or 1 for DTUA, ptra, prta, rpua 

0, 1, or 2 for biua 

0, 1, 2, or 3 for ttia, ttoa 
The letter p, is either 1 or 0, indicating the presence or 
absence of the device. The letter n may be any decimal 
number from through 10, and q may be any digit from 
through 6. Disk modules are defined as being present 
or absent by using 1 or 0, respectively. Thus, modules 
through 4 are defined by a series of five digits, here 
represented as abcde. The series fghij represents the 
definition of modules 5 through 9. 

Space is reserved in the Nucleus for control blocks 
for each device in the 7040/7044 Data Processing Sys- 
tem, according to the following rules: 

1. Nine words for each unit control block. 

2. Four words for each system control block for 



Symbol Code Variable 



Remark 



TTIA 



TTOA 



SET 



SET 



xyz 



xyz 



DTUA 


SET 


xyz 


RIUA 


SET 


xyz 


PTRA 


SET 


xyz 


PRTA 


SET 


xyz 


RPUA 


SET 


xyz 


TAPA 


SET 


n 


PRTS 


SET 


P 


RPUS 


SET 


P 


TAPS 


SET 


q 


TAPB 


SET 


n 


DF1B 


SET 


abcde 


DF2B 


SET 


fghij 


DF3B 


SET 


abcde 


DF4B 


SET 


fghij 


DDIB 


SET 


P 


BMXB 


SET 


P 


TAPC 


SET 


n 


DFIC 


SET 


abcde 


DF2C 


SET 


fghij 


DF3C 


SET 


abcde 


DF4C 


SET 


fghij 


DDIC 


SET 


P 


BMXC 


SET 


P 


TAPD 


SET 


n 


DF1D 


SET 


abcde 


DF2D 


SET 


fghij 


DF3D 


SET 


abcde 


DF4D 


SET 


fghij 


DDID 


SET 


P 


BMXD 


SET 


P 


TAPE 


SET 


n 


DFIE 


SET 


abcde 


DF2E 


SET 


fghij 


DF3E 


SET 


abode 


DF4E 


SET 


fghij 


DDIE 


SET 


P 


BMXE 


SET 


P 


Note: The 


setting of 


a Direct 


for 


a unit control block. 



INPUT TELEGRAPH UNITS ON 

CHAN A 
OUTPUT TELEGRAPH UNITS ON 

CHAN A 
DATA TRANSMISSION UNITS ON 

CHAN A 
REMOTE INQUIRY UNITS ON 

CHAN A 
PAPER TAPE READERS ON CHAN A 
PRINTERS ON CHAN A 
READER/PUNCHES ON CHAN A 
TAPES ON CHAN A 
PRINTER ON ON-LINE 1401 
READER/PUNCH ON 1401 
TAPES ON ON-LINE 1401 
TAPES ON CHAN B 
DISK ACCESS 0, MODULES 0-4 
DISK ACCESS 0, MODULES 5-9 
DISK ACCESS 1, MODULES 0-4 
DISK ACCESS 1, MODULES 5-9 
DIRECT DATA CONNECTION ON 

CHAN B 
COMMUNICATION CONTROL 

SYSTEM ON CHAN B 
TAPES ON CHAN C 
DISK ACCESS 0, MODULES 0-4 
DISK ACCESS 0, MODULES 5-9 
DISK ACCESS 1, MODULES 0-4 
DISK ACCESS 1, MODULES 5-9 
DIRECT DATA CONNECTION ON 

CHAN C 
COMMUNICATION CONTROL 

SYSTEM ON CHAN C 
TAPES ON CHAN D 
DISK ACCESS 0, MODULES 0-4 
DISK ACCESS 0, MODULES 5-9 
DISK ACCESS 1, MODULES 0-4. 
DISK ACCESS 1, MODULES S-9 
DIRECT DATA CONNECTION ON 

CHAN D 
COMMUNICATION CONTROL 

SYSTEM ON CHAN D 
TAPES ON CHAN E 
DISK ACCESS 0, MODULES 0-4 
DISK ACCESS 0, MODULES 5-9 
DISK ACCESS 1, MODULES 0-4 
DISK ACCESS 1, MODULES 5-9 
DIRECT DATA CONNECTION ON 

CHAN E 
COMMUNICATION CONTROL 
SYSTEM ON CHAN E 
Data parameter allocates nine words 



Figure 5. Symbolic Definition of the Machine Configuration 
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magnetic tape units, unit record equipment, telecom- 
munications devices attached through Model iv or v 
of the 1414 Input/Output Synchronizer, and 7740 
Communication Control System input devices. 

3. Eight words for each system control block for 
disk and drum storage units and 7740 Communication 
Control System output devices. 

Each card reader/punch, 1009 Data Transmission 
Unit, 1014 Remote Inquiry Unit, 7740 Communication 
Control System, and telegraph unit is considered to be 
two devices requiring two unit control blocks — one 
for input, one for output. A disk or drum module is 
treated as a device that requires one unit control 
block. A device may require one or more system con- 
trol blocks, depending on the logical unit assignments 
made with the attach macro-instruction described 
later in the text. 



Input/Output Device Assignment 

All input/output devices and each system unit must be 
defined at assembly time by an attach macro- 
instruction. This macro-instruction is used to construct 
the Symbolic Units Table. If changes must be made in 
this table, the attach macro-instructions can be modi- 
fied and the Nucleus reassembled, or the sdetach card 
and the $attach card can be used. 

Care should be taken in the assignment of system 
utility units so that no priority program will use a 
utility unit specified for use by a system program or 
an installation program. 

In general, each system unit should refer to a unique 
physical unit. However, the system checkpoint unit 
(s.scKi) may be the same physical unit as a system 
utility unit ( s.suxx ) . Note that this may cause conflicts 
in unit assignments during use of certain features of 
the Operating System ( Sort, load-time debugging, the 
Chain feature, the Copy and Reload features). 

The format of the attach macro-instruction is as 
follows : 

8 16 

ATTACH S.Sxxx, device, chan, number, type 
[,dir][,n[,from,to]]['j}5g[] 

The arguments in the variable field are separated by 

commas. They are: 

S.Sxxx 

This must be one of the following mnemonics : 

MNEMONIC SYSTEM FUNCrilON 

S.SLBl Library 1 

S.SLB2 Library 2 

S.SINl Input 1 

S.SIN2 Input 2 

S.SOUl Output 1 

S.SOU2 Output 2 

S.SPPl Punch 1 



MNEMONIC 


S.SPP2 


S.SCKI 


S.SUOO 


S.SUOl 



SYSTEM FUNC:nON 

Punch 2 
Checkpoint 
Utility 00 
Utility 01 



S.SUnn Utility nn 

device 

This may be any of the following symbols: 

T Magnetic tape 

DT Data transmission imit 

PT Paper tape reader 

RI Remote inquiry unit 

D Disk or drum storage 

RD Card reader 

PU Card ptinch 

PR Printer 

TT Telegraph unit 

BX (Communication control system 

chan 

Channel or channel A interface to which the device is con- 
nected. It must be one of the following characters, consistent 
with device and system configuration: A, B, C, D, E, S for the 
appropriate channel; or in the case of devices attached to chan- 
nel A (other than magnetic tape units), the appropriate I, 2, 
or 3 interface to which the device is attached. The letter S 
indicates that the device is attached to channel A through an 
on-line 1401. For example, the 1403 Printer can be attached 
only to interface 1, 2, or 3, or to channel S. 

The systems engineer should determine from the customer 
engineer the appropriate 1414 I/O Synchronizer interface num- 
ber to which the unit record equipment has been attached. 
Generally, when unit record devices are attached, interface 
numbers arc assigned in the following manner: first device of a 
type, interface number 3; second device, interface number 1; 
third device, interface number 2. 
number 

This is the device number. It must be one of the following 
numbers, consistent with device, channel, and system configura- 
tion: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
17, 18, 19, or 20. The numbers through 9 are used for tape 
devices; the numbers 1 through 10 are used for 1301 Disk Stor- 
age, 1302 Disk Storage, and 7320 Drum Storage, the numbers 
11 through 20 are used for 1302 Disk Storage. 

The device number may not be larger than the quantity of 
these devices defined as available on the channel; however, de- 
vice numbers 11 througli 20 are treated in the same manner as 
device numbers 1 through 10. Since each access mechanism is 
treated as a device, "number," for example, is a 1 for access 
module 0, 10 for access module 9, 11 for access 1 module 0, 
etc. (sec Figure 6). For magnetic tape units, this digit desig- 
nates the number tliat is dialed on the tape unit, 
type 

This must be one of the following equipment type numbers, 
consistent with device, channel, and system configuration: 729, 
1009, 1011, 1014, 1301, 1302, 1402, 1403, 1622, 7320, 7330, 
7740, and telegraph, 
dir 

One of the following symbols: I for an input unit, O for an 
output unit, or blank for both. This option is required for de- 
vices that need separate input and output unit control blocks 
( 1009, 1014, 7740, and telegraph). 

The following arguments are omitted for sequential 
access devices, such as unit record equipment or mag- 
netic tape units: 
n 

This argument is used to specify the method of using a 
random access device such as disk storage. It is one of the 
following: 
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R Random access, 

FT Full track with record addresses. 
C Y Cylinder mode , ( optional feature ) . 
X Single-record operation. The letter x represents the 

number ( 1-63 ) of records defined on one format 
track, 
from 

This is the logical starting point for the function within the 
device. It is the cylinder number of the first cylinder assigned 
to the function: 0-249 for disk storage; 0-9 for drum storage, 
to 

This is the logical ending point of the function within the 
device. It is the number of the last cylinder assigned to the 
function: 0-249 for disk storage; 0-9 for drum storage. This 
argument must be supplied for functions for which a logical 
starting point is specified. 
157 or 158 

This is the permanent reservation code (Tig or 728) to be 
appended to the device being attached. All preceding fields, 
if null, must be indicated by commas. 

If a logical starting point and a logical ending point 
are not specified for a random access device, the func- 
tion is assumed to occupy the entire device. The argu- 
ments used in the attach macro-instruction must 
appear in the order presented. 



Access 






















module 
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number 
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Figure 6. Disk and Drum Device Numbers 

After the Nucleus is initialized at an initial start, 
each entry in the Symbolic Units Table has the form: 
S.Sxxx pfx loc(ucb), , loc(scb) 

In this table, loc(ucb) is the location of several unit 
control words describing the device and its status, and 
loc( scb ) is the location of several system control words 
that further describe the symbolic unit. S.Sxxx is as de- 
fined for the ATTACH macro-instruction. 

An explanation of the prefix, pfx, may be found 
under "Symbolic Units Table." The prefix should be 
set by object programs not using the iobs level of iocs. 
If a particular symbolic unit has no device attached to 
it, the address and decrement of the appropriate entry 
are set to zero and the symbolic unit may not be used. 

If the parameters of an attach macro-instruction 
refer to a channel that has not been defined, the appro- 
priate entry in the Symbohc Units Table is set to zero 
and the corresponding symbolic unit may not be used. 
The table entry is set at initial start when a srestoee 
card is encountered, or when $attach cards are 
processed. 

The following is an example of an attach macro- 
instruction: 



This card causes a 729 Magnetic Tape Unit with a 
dial setting of 1 on channel C to be assigned as the pri- 
mary system library unit. 

Input/Output Unit Availability 

Disk and drum units are considered available for use 
under the variable unit selection techniques only if 
their formats, as specified in the system control blocks, 
match one of the allowable formats specified in the 
allow macro-instruction. 

ALLOW is punched in columns 8-12 of the allow 
macro-instruction. The variable field starts in column 
16. The arguments in the variable field are separated 
by comrnas. They are: 



FORMAT 
TYPE 

R 

SR 

FT 

C1301 

C7320 

C1302 



MEANING 

Random 
Single record 
Full track 
Cylinder 1301 
Cylinder 7320 
Cylindqrl302 



CODE (octal) in system 

CONTROL BLOCK 

20 

21 
22 
23 
24 
25 
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If an installation does not wish to have disk or drum 
units of any format type chosen as available units, an 
ALLOW macro-instruction with a blank variable field 
must be used. 

The following is an example of an allow macro- 
instruction: 

8 16 

ALLOW FT 
This macro-instruction will cause the selection of 
only those disk and drum units that are attached as 
full track. 

Assembly Options 

The following parameters allow the system program- 
mer to specify the conditions that apply at his installa- 
tion. The values given for n are the equivalences in 
the distributed version of the system: 

SYMBOL CODE VARIABLE DESCRIPTION 

IBNUC BOOL n = 135 The octal number n is the 

location of the first system 
transfer word, S.SLDR. 

S.SORG BOOL n = 3000 The octal number is the 

greater of the following: 

1. The location of the 
first word available to ob- 
ject programs if the value 
of S.SORG is greater than 
IPIND (the limit of the low- 
est level of IOCS ) . 

2. The end of protected 
storage. 

S.SEND BOOL n = 37777 The octal number n is the 

location of the last word 
available to the system. 

IFRPM SET n=0 If the system is to be stor- 

age protected, n is 1; other- 
wise, n is 0. 

IFCLK SET n = If the interval timer may 

be used by the system, n 
is 1; otherwise, n is 0. 
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SYMBOL CODE VARIABLE 

MXCLK EQU n=3 



IBPER EQU n = 10 



RDNRT EQU n = 100 



RUPSW EQU n = l 



CYLMO SET n = 



IFSHF SET n = 



LABELS SET n=l 



LABSW EQU n = ( 



EOMTR EQU n=4 



DESCRIPTION 

The decimal number n is 
the maximum number of 
minutes that a job may run 
if a $TIME card is not used. 
This is not significant un- 
less IFCLK is 1. 
The decimal number n is 
the percentage of redun- 
dancies that, if exceeded, 
causes an on-line message 
to be typed when a $STOP 
card is read. It may range 
from through 1,000 in 
tenths of a percent. 
The decimal number n is 
the number of times the 
input/output operation will 
be repeated in attempts to 
recover from redundancy 
errors. 

The decimal number n, 1-6, 
is the sense switch to be 
used for operator interrup- 
tion of a stack of jobs. 
This option indicates 
whether the cylinder mode 
is present on the 7631 file 
control for the 1301 disk, 
1302 disk or 7320 drum as 
follows: 

0— The cylinder mode is 
not present. 

1— The cylinder mode is 
present. 

This option indicates 
whether a 7631 file control 
is shared with another host 
computer. 

— File control is not 

shared 

1 — File control is shared 
This option specifies the 
use thiat an installation 
makes of labeled storage 
media as follows: 

0-The lOLS creation 
and verification routines do 
not appear on the System 
Library, 

1-The lOLS creation 
and verification routines ap- 
pear on the System Li- 
brary, but they are not used 
to verify the retention dates 
of output reels. 

2-The lOLS creation 
and verification routines ap- 
pear on the System Li- 
brary and must be used to 
verify the retention dates 
of output reels. 

The lOLS reel-handling 
routines are not affected by 
this parameter. 

The decimal number n is 

the sense switch tested by 

lOLS. 

This option is used when a 

disk or drum storage ' area 

is assigned as a symbolic 



JYMBOL CODE VARIABLE DESCRIPTION 

unit. The decimal number 
n is the number of tracks 
that should remain unused 
on the unit at the time the 
end-of-raedium return is 
taken. 
IBLTZ SET n=41 The decimal number n is 

the number of entries in the 
Abbreviated Table of Con- 
tents. 

IBRTZ SET n = 7 The decimal number n is 

the number of entries in 
the Recognizable Control 
Card Table, S.SRCC. 

IBRSL SET n = U The decimal number n speci- 

fies the number of priority 
levels ( 1-8 ) that determine 
whether a routine can be 
interrupted to permit exe- 
cution of a special routine 
of a higher priority. When 
IBRSL is 0, no special rou- 
tine can be executed. It gov- 
erns the length of the push- 
down list in lOEX used to 
save the registers of the 
interrupted routines. This 
number is not identical to 
the number of priorities 
permitted. 

IFSNS SET n = This option specifies how 

lOOP handles the lOSNS 
operation as follows: 

- lOOP will ignore the 

operation. 
1-IOOP will sense the 
specified device. 

IFCHO SET n = If n is 0, IBJOB and IBEDT 

will choose work units with- 
out attempting to optimize 
channel usage. If n is 1, 
IBJOB and IBEDT will at- 
tempt to optimize channel 
usage in choosing work 
units. If n is 1, IFSNS 
should be set to 1. 

IFLSC SET n = This option specifies whether 

the installation uses de- 
ferred label searching as 
follows : 

— The installation does 

not use deferred label 
searching. 

1 — The installation uses 

deferred label search- 
ing. 
IF162 SET n = Non-zero if the card reader 

is a 1622. 

CPRPU EQU Assembled combined sys- 

tem print/punch flag set- 
ting. 

IFURA SET n = If n is 0, IOCS does not 

respond to unit record in- 
terrupts. If n is 1, IOCS 
responds to unit record 
interrupts originating from 
a 1402 Card Read Punch 
or a 1403 Printer. If IF162 
is 1, IFURA will be as- 
sumed to be 0. 
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SYMBOL CODE VARIAB 

LISTSW SET n=0 



INCWD SET n=0 



TPOPN SET n=0 



IFTYP SET n=0 



IFCHT SET n = 



SHARE SET n = l 



DESCRIPTION 

If a listing of all unassem- 
bled cards in IBNUC is to 
be provided, n is 1; other- 
wise, n is 0. 

This option specifies how 
IOCS will handle errors on 
magnetic tape. If n is 0, 
IOCS will distinguish be- 
tween incomplete word 
errors and redundancy 
errors. If n is 1, IOCS will 
treat incomplete word errors 
as if they were redundancy 
errors. 

If n is 0, IOCS discards a 
telecommunications message 
received prior to the open- 
ing of telecommunications 
input. If n is 1, a waiting 
message is accepted upon 
opening, i.e., the IOCS spe- 
cial routine is entered. 
If n is non-zero, the type- 
writer routine, S.XPRT, is 
assembled to execute in 
single-character mode. If 
Tele-processing devices are 
attached to channel A, 
IFTYP will be assumed to 
be non-zero. 

If n is 1, devices defined in 
IBNUC as attached to a 
nonexistent channel will be 
detached by IBS UP. Fur- 
ther, if n is 1, disk or drum 
units which have been de- 
fined in IBNUC but which 
are not ready will also be 
detached by IBSUP. The 
parameter on the system 
tape is n = because the 
version of IBNUC distrib- 
uted to the user defines 
disk units on channels B 
and C. Individual systems 
without a disk or a drum 
unit physically attached to 
channels B and C and 
without Control Adapter 
1074 will hang up in 
IBNUC if n = l. If the 
input/output configuration 
defined in IBNUC matches 
the system configuration, n 
should be 1. 

If n is 1, the SHARE set of 
data record control charac- 
ters is used. The character 
M is taken as an indication 
that the record is binary. 

If n is 0, the alternate set 
of data record control char- 
acters is used. 

For additional informa- 
tion, see the section on 
record formats in the pub- 
lication IBM 7040/7044 
Operating System (16/32K): 
Input/Output Control Sys- 
tem, Form C28-6309. 



Priority Processing: The capability for priority proc- 
essing is controlled by the assembly option ibrsl. A 
specification oF: 
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IBRSL 



SET 



prevents any priority programming from taking place. 
A main program cannot be interrupted by a real-time 
routine or by a random processing routine. 
A specification of: 

1 8 16 



IBRSL 



SET 



1 



permits all priority processing. However, if a special 
routine has been entered, no other special routine can 
be entered, no niatter how high its priority may be, 
until the special routine in control has been completed. 
Eventually, all special routines are entered and com- 
pleted and the main program is permitted to continue. 
This specification entails the addition of approximately 
150 instructions in ioex, as well as a pushdown list of 
16 words. 

Each additional nesting level that is specified re- 
quires an additional 16 words in the pushdown list. 
Each additional nesting level permits an additional 
level of priority processing; for instance, it is less likely 
that a higher priority program will find the pushdown 
Hst full and will have to wait until a lower priority 
routine has finished. The total length of time in special 
routines, until the main program is permitted to con- 
tinue, is not affected by the nesting level. 

Priorities through 7 are available to object pro- 
grams. 

Unit Record Interrupts: Response to unit record in- 
terrupts is controlled by the assembly option ifura. A 
specification of: 

1 8 16 



IFURA 



SET 



prevents response to unit record interrupts. If a unit 
record operation is scheduled, but the device is busy, 
and no other activity on any channel is in progress or 
can be scheduled, ioex waits in a hold loop until the 
unit record device is no longer busy. 
A specification of: 



16 



IFURA 



SET 



permits response to unit record interrupts. If a unit 
record operation is scheduled, but the device is busy, 
and no other activity on any channel is in progress or 
can be scheduled, ioex returns to the calling program. 
A unit record interrupt trap occurs when the device is 
no longer busy. 

This provides additional processing time following 
a call to s.xACT or following an Initiate or Return Im- 
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mediate call to s.ioop. The additional time is used if 
the call for the next operation on a unit record device 
is made immediately after the end-of -operation trap for 
the current operation on the same device. Any calcula- 
tions performed between the two requests for unit 
record operations reduce the benefit of the unit record 
interrupt trap. 

In general, a program is either process limited or 
limited to the sum of iocs trap-processing time and 
transmission time on the busiest channel. If the pro- 
gram is completely process limited, no benefit accrues 
from unit record interrupt traps. Programs that tend 
to fall into a set input/output pattern accrue limited 
benefit from unit record interrupt traps. Thus, this 
specification is most useful when ibrsl is not zero, since 
the intermittent processing on unit record devices tends 
to break the input/output pattern, and the quicker 
return from ioex assists the interrupted program. 

Sysfem Editor Assembly Options 

The following symbol definitions appear in the System 
Editor symbolic decks. 



SYMBOL CODE 

lEROl EQU 



VARIABLE 

n = 1000 



IER03 EQU n = 330 



lELFG EQU n= 16 



lELCT EQU n = 20 



lEWST EQU n = l 



DESCRIPTION 

The size of the largest buf- 
fer the System Editor may 
use. 

Word length of physical 
system records on mag- 
netic tape units on the 
1401. lOCP and IBEDT 
allow the 1401 buffer size 
to be up to 370. 
The decimal number n is 
the position in the Nucleus, 
relative to S.SFLG, of the 
System Editor's flag words. 
The decimal number n is 
the number of cards per 
block in the IBLIB subrou- 
tines for the Processor. 
The decimal number n is 
the number of words re- 
quired by lOOP in each 
buffer. 



Subroutine Library Assembly Options 

The following symbol definitions appear in the sym- 
bolic input to the Subroutine Library: 

SYMBOL CODE VARIABLE DESCRIPTION 

ERRIN SET n=0 ERRIN must be set to 

the same value in decks 
INSYFB and lASYFB. If 
S.SINl is attached to a 
unit record device and a 
read error occurs, retry is 
permitted if n is 1. 

ERROU SET n=0 ERROU must be set to 

the same value in decks 
OUSYFB and OASYFB. If 
S.SOUl is attached to a 
unit record device and a 



SYMBOL 



ERRPP 



VARIABLE 



SET 



DESCRIPTION 

print error occurs, the error 
is ignored if n is 1. 
ERRPP appears in deck 
PPSYFB. If S.SPPl is at- 
tached to a unit record de- 
vice and a punch error 
occurs, the error is ignored 
if n is 1. 

This option specifies a fea- 
ture in the ECV routine 
(see "FORTRAN System 
Subroutines" ) . 
This option specifies a fea- 
ture in the FCV routine 
(see "FORTRAN System 
Subroutines" ) . 
These options specify fea- 
tures in the FPT subroutine 
(see "FORTRAN System 
Subroutines" ) . 



Unit Record Error Returns: These returns are con- 
trolled by the following cards: 

1 8 16 



SUPRES SET 



EXTRA SET 



n=l 



n=0 



FPTLIM 


EQU 


n=10 


FPULIM 


EQU 


n=10 


ODDLIM 


EQU 


n=l 


MESLIM 


EQU 


n = 20 


DPOPT 


SET 


n = l 



ERRIN SET 



Oor 1 



A specification of causes the system file block 
s.FBiN (deck INSYFB ) to spccify that the error return 
s.iNER is to be assembled as equ o. When any error 
occurs while reading, iobs performs its standard error 
procedure. If the system input unit is a unit record 
device and the error occurs on this device, no retry 
is permitted; the job is terminated. 

A specification of 1 causes a control section (s.iner) 
to be assembled. This control section replaces the 
standard error recovery routine in iobs. If the system 
input unit is a unit record device and either an unre- 
coverable error occurs while reading or an incomplete 
word is typed, the computer pauses to allow the opera- 
tor to reload the card reader, and the card is reread. 

ERRIN must be set to the same value in decks iasyfb 
and INSYFB. 

The format of the errou card is: 
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ERROU SET 



Oor 1 



A specification of causes the system file block 
s.FBOu (deck ousyfb) to specify that the error return 
s.ouER is to be assembled as equ o. When any error 
occurs while writing, iobs performs its standard error 
procedure. If the system output unit is a unit record 
device and the error occurs on this device, the job is 
terminated. 

A specification of 1 causes a control section (s.ouer) 
to be assembled. This control section replaces the 
standard error recovery routine in iobs. If the system 
output unit is a unit record device and an unrecover- 
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able error occurs while writing, then a message is 
written on the system output unit, the erroneous record 
is ignored, and the job continues. 

EEROU must be set to the same value in decks oasyfb 
and ousYFB, 

The format of the errpp card is: 



16 



ERRPP SET 



Oorl 



A specification of causes the system file block 
s.FBPP (deck ppsyfb) to specify that the error return 
S.PPER is to be assembled as equ o. When any error 
occurs while writing, iobs performs its standard error 
procedure. If the system punch unit is a unit record 
device and the error occurs on this device, the job is 
terminated. 

A specification of 1 causes a control section (s.pper) 
to be assembled. This control section replaces the 
standard error recovery routine in iobs. If the system 
punch unit is a unit record device and an unrecover- 
able error occurs while punching, then a message is 
typed, the computer pauses to allow the operator to 
mark the dec^, the erroneously punched card is ig- 
nored, and the job continues. 

Other Assembly Options 

Assembly options related to specific subsystems are dis- 
cussed elsewhere. Options in the Macro Assembly 
program, which apply to disk and drum orders, are 
described later, in the section "Phase A." Options in the 
Dump program are described in the publication IBM 
7040/7044 Operating System (16/32K): Debugging 
Facilities, Form C28-6803. Assembly options in the 
Sort program are discussed in the publication IBM 
7040/7044 Operating System (16/32K): Generalized 
Sorting System, Form C28-6337. 



tnitial Editing Instructions 

The binary system tape, distributed by the ibm Data 
Processing Division Program Information Department, 
can be used immediately at an installation as a 7040/ 
7044 Operating System. Its first application should be 
the generation of an operating system adapted to the 
particular needs of that installation. 

The configuration of the 7040/7044 Data Process- 
ing System for which the distributed system tape is 
assembled is shown in Figure 7 in the format of the 
ATTACH macro-instruction. 

Initial System Unit Requirements 

The systems programmer determines the changes, if 
any, that must be made in the configuration of the 
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Figure 7. Machine Configuration for the Distributed System 

7040/7044 Operating System at his installation to per- 
mit him to make the initial edit runs with the dis- 
tributed system tape. He then prepares the necessary 
sswiTCH cards to eflFect theise changes. If the 7040/7044 
Data Processing System at his installation does not 
have an on-line card reader, he can switch units 
through the entry keys. The minimum configuration 
that he must have to prepare the backup library is: 



SYMBOLIC UNIT 


DEVICE 


CHANNEL 


S.SLBl 


729 Tape 


A 


S.SINl 


1402 Card Read Punch 


A 


S.SOUl 


1403 Printer 


A 


S.SUOO 


729 Tape 


. A 


S.SUOl 


729 Tape 


A 



Both utility units may be attached to different cylinders 
on the same module of disk storage. 

Preparing the Backup Library 

This procedure is optional, but strongly recommended, 
as it provides system maps and a duplicate library for 
emergency use. 
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1. Place the following cards on the system input file: 

$DATE 

$IBEDT 

$ENDEDIT 

$IBSYS 

$STOP 

2. Mount the system tape. 

3. Follow the initial start procedures given in 
the publication IBM 7040/7044 Operating System 
(16/32K): Operators Guide, Form C28-6338. 

Maintaining the Symbolic Master File 

From the listing of symbolic cards that is obtained 
from the symbolic master file and from the assembly 



parameters described in this publication, determine 
the serial numbers of the symbolic cards that must be 
replaced on the syrpbolic master -file. Prepare the 
change cards, and insert the changed assembly param- 
eters into the symbolic master file. 

The first deck on reel 1 of the distributed symbolic 
master tape contains comments cards (ccards). This 
deck contains information regarding the contents of 
the symbolic tapes and describing the runs necessary 
to maintain the distributed tapes and to create a System 
Library. Specific deck setups that include the control 
cards for each deck in the Subroutine Library and 
each phase of the Operating System are also shown. 
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System Editor 



The System Editor (ibedt) is used to maintain the 
System Library of the ibm 7040/7044 Operating Sys- 
tem. With the proper control cards, the user can add, 
delete, or modify any absolute records of system pro- 
grams or add or delete any relocatable records from 
the Subroutine Library ( ibltb ) . The System Editor 
itself is incorporated in the System Library as a moni- 
tored subsystem that is called through the System 
Monitor. The System Editor can be used with the 
Loader (ibldr), or with a processor that an installation 
may edit into the System Library to generate and insert 
new library records. The user's programs, or any sub- 
routines or data, are thus added to the System Library 
in the proper format. 

The System Editor can also be used to place a pro- 
gram that was compiled and/or assembled by the 
Processor into the System Library in absolute machine 
language format or in the relocatable subroutine format. 
A program added in absolute format can be loaded 
and executed with the $execute card. In the case of 
subroutines added in relocatable format, the program- 
mer directs the Loader (ibldr) to load the subroutine 
by using the extern pseudo-operation in his coding. 
In this way, the user can create a specific operating 
system for his own installation. If desired, an installa- 
tion monitor could be placed into the combined moni- 
tor core storage loads for monitoring these special 
subsystems. It would be called by the $xxxxxx control 
card specified by the installation, where xxxxxx is the 
name given to the installation monitor. 



System Editor Components 

The System Editor consists of two logical sections: 
the Editor Monitor and the Editor program, which is 
further divided into Phase 1 and Phase 2. 

Editor Monitor 

The Editor Monitor is part of the combined monitor 
core storage loads. It is entered directly from the 
System Monitor when a $ibedt card is encountered. A 
description of the sibedt card is in the section "Editor 
Control Cards." 

The Editor Monitor processes the Editor control 
cards and, in effect, the Processor control cards, if any, 
before the editing process begins. This monitor also 
determines which input/output units will be used and 
initializes them for the Editor program. If the label 



option is specified on the sibedt card, the Editor Moni- 
tor checks the labels of the old library unit(s) con- 
taining the System Library to be updated and/or the 
new library unit(s) on which the new System Library 
is to be created. If the assembly parameter labels 
was defined as labels set 2, header labels on the 
output units are checked for retention dates. 

The Editor Monitor, in effect, directs the use of the 
Processor Monitor (or any other processor that the in- 
stallation has edited into the System Library) during 
edit runs involving source language input or relocat- 
able input ( see Figure 8 ) . 

Input 

The System Editor can accept the following types 
of input: 

1. MAP, FORTRAN, or COBOL sourcc language coding 

2. OCT instruction cards 

3. Absolute column binary cards 

4. Relocatable binary cards 

5. Source language statements 

6. Records in System Library format 

Input to the Editor program on oct instruction 
cards for patching, or in the absolute column binary 
format produced by an assembler such as the 7040/ 
7044 Basic Assembly Program (see Figure 9), is passed 
directly to the Editor program. 

The Editor program verifies check sums except in 
the following cases : 

1. When duplicating with the dup card 

2. When the check-sum word is zero 

3. When bit 2 of the load control word is punched 
The first instruction in the card is loaded in the core 
storage word whose actual address is specified in bit 
positions 21-35 of word 1 of the card; other instructions 
in the card are loaded in words with ascending sequen- 
tial addresses. The decrement and address fields within 
the instructions cannot be modified during loading. 

This absolute column binary format should not be 
confused with the absmod output of the Macro Assem- 
bly Program, which has an absolute origin but is essen- 
tially in relocatable format. 

Under the control of the Editor Monitor, the 
Loader (ibldr) may be used to convert relocatable 
binary output from the Macro Assembly Program 
into the System Library binary format acceptable 
to the Editor program. These converted records 
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Figure 8. Use of the Processor by the System Editor 
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Word 
1 



Bit Positions 
S 
1 
2 



9 
11 



Contents 

Must be blank. 

Must be blank. 

If punched, the System Editor does not 
compute a check sum from card data for 
comparison with the card's prepunched 
check sum. 

Must be punched. 

Must be punched. 



Word Bit Positions 

12-17 



21-35 



3-24 



Figure 9. Absolute Column Binary Format Acceptable to the Editor Monitor 
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S-35 



Contents 

Count of words in the card, excluding 
words 1 and 2. 

Absolute loading address — the actual ad- 
dress of the core storage word where the 
first instruction of this card is stored. 

Check sum — the logical sum (Add and 
Carry Logical Word) of all words in this 
card except word 2. 

Absolute binary instructions. , 



are stored on a utility file, called the edit file, for 
sorting during Phase 1, The Editor Monitor chooses 
an available unit for the edit file. Relocatable subrou- 
tine decks destined for the Subroutine Library (iblib) 
must remain in relocatable format. Consequently, they 
are not passed to the Loader, but are placed in the edit 
file and later put into the proper format by the Editor 
program. 

The characteristics of the edit file are given in the 
section "Processor Files," which is included in the 
discussion of the Processor (ibjob). 

The capability of the System Editor to use the Proc- 
essor permits source language ( Fortran iv, cobol, and 
map) editing. This means that programs to be edited 
into the System Library may be in any source language 
that can be translated by the Processor. If translation 
and/or conversion is necessary, the Editor Monitor 
passes control to the Processor and ultimately receives 
an absolute machine language version of the symbolic 
coding for the particular phase on the edit file follow- 
ing the parameter cards. The edit file is rewound after 
all translation is complete. All the input to Phase 1 
is on the edit file; Phase 1 treats the edit file as though 
it were on s.sini. The same capability can be extended 
to any processor that the installation has edited onto 
the System Library. 

Editor Program 

The Editor Program is called into core storage by the 
Editor Monitor when the editing is to begin. Phase 1 
performs all necessary sorting of input data and an- 
alyzes the Editor parameter cards, placing them on an 
intermediate storage unit followed by the linked pro- 
grams. Phase 2 uses this information to create the new 
version of the System Library on the designated output 
unit. Figure 10 shows the flow of control during an 
edit run. 



System 



Input Unit 



Editor 
Monitor 



\ Edit / 

*^ F"- / 

\ I 

1 . Initializotion by the Editor Monitor. Dotted lines indicate a device that may 
not always be used . 



\ Oldlu (Used to / 
\ Read IBTOC) ' 
\ if notS.SLBl/ 
\_ I \ 




» Optional . 
^ Aux Input ' 
A Units ' 
^ \ I 



^ \ 

^i Newlu (used ' 

^\ as merge ' 
\ device) / 

\ I 

(If Input Out 
of Sequence) 



II. Storing of Input and Analysis of Parameter Cards by 1BEDT1 . 



P/iase ? 

Phase 1 of the Editor program passes over the input 
units, blocking the card image (or ibldr) input and 
sorting ail the blocks of a phase in ascending order 
by the load addresses. The sorted blocks are con- 
catenated, and the load address and the word count 
of each block are placed in the first word of the block. 
The input unit, which may be the system input unit, 
the edit file, or auxiliary units, is specified by the 
Editor Monitor and by certain Editor parameter cards. 
Phase 1 also performs a full check of the parameter 
cards and passes encoded information about them to 
Phase 2. 

If necessary, Phase 1 sorts the input to agree with 
the sequence in which the altered phases appear in the 
Subroutine Library. 



\ Oldlu / 
\ (S.SLBl / 
\ standard)/\ 


Maps 


\ WORKl / 


1 \ —1 

\ Alternate . 
J Unit / 

/ / 
/ / 




1 




\ S.SOUl /*. 


IBEDT2 


/ \ --7 

\ WORK2 / 

\ / 

v___/ 

(Used if Input 
Has a LI BE card) 


\ / 


\ 


Error Message 


1 






\ Newlu / 
\ (S.SUOl / 
\ standard) / 





III. Creation of New System . 

Figure 10. Flow of Control During an Edit Run 
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The Table of Contents is created or updated by 
Phase 1. For some edit runs, Phase 1 is able to pass 
a final Table of Contents to Phase 2. For other runs, 
Phase 2 may have to alter the Table of Contents. If the 
edit deck includes a modify parameter, a dup param- 
eter, or a LTBE parameter, or if the edit run involves 
devices with different maximum block sizes. Phase 1 is 
unable to determine the exact number of blocks that 
will result from the operations. 

If it is later determined during Phase 2 that these 
operations did alter the block count, and if the new 
library unit is a sequential device, a second pass will 
be made to insert the updated Table of Contents into 
the new library. ( If the new library unit is a random 
access device, there is no need for a duplication pass 
because the Editor program, when writing the new 
System Library, reserves enough tracks to accommodate 
the phase containing the Index and the Table of Con- 
tents. This phase, ibtoc, is inserted into the proper 
place upon completion of the edit run. ) 

Phase 2 

Phase 2 merges the update records on the intermediate 
storage unit with the old master System Library. Upon 
completion of Phase 2, an updated version of the Sys- 
tem Library is ready for use. 

The first function of Phase 2 is the selection of the 
Bootstrap program appropriate for the new library 
unit. Then the update records are merged. 

As the blocks are written, a chain word is set up in 
the last word of each block. The load address and the 
word count of the first block of each phase are placed 
in the Table of Contents. The last word in the last block 
of a phase has an mze prefix code and contains the 
entry point to the phase in its address portion. 

Then, Phase 2 writes the ieof trailer label, rewinds 
the units, and returns control to the Supervisor via 

S.SRET. 

The new library may be on one or two units. The 
new library will be on two units if a ]eor trailer label 
is encountered while copying the old library unit or 
if the edit deck included an insert eor parameter card. 
Units are switched and writing continues until editing 
is completed and a ieof trailer label is Vt^itten. All 
trailer labels are updated to the current date. The ver- 
sion and modification level is changed only if it so 
specified on the $ibedt card. A discussion of the label 
option on the $ibedt card is presented later in the text. 

In Figure 11, a sample sequential map is shown that 
depicts the physical order of all phases written onto 
the new library unit, with an indication of the Editor 
parameters, if any, that affected specific phases. Ap- 
pearing beside each phase name is a string of entries 
that indicate the block number and word count of each 
record that makes up the phase. If the edit run includes 
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Figure 11. Sequential Map of the System Library 
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a LiBE parameter, a sequential map of the relocatable 
Subroutine Library is also written. 

In Figure 12, a sample logical map, made from the 
Index and the Table of Contents, depicts the grouping 
of the phases of each system in the System Library. 

The headings for these maps contain page numbers, 
the data stored in s.sdat, and the contents of the first 
REMARK card in the edit deck. The bcd trailer label 
is printed at the end of the sequential map. 

A complete copy of the System Library may be ob- 
tained by performing an edit run, using only the $ibedt 
card and the $endedit card. A map of the Subroutine 
Library may be obtained during this run by adding the 
LIBE and LiBEND parameter cards. 

External Storage Unit Requirements 

In addition to the usual complement of system units 
( such as the system library unit, system input unit, and 
system output unit), the System Editor requires a mini- 
mum of two utility units, selected for the Editor phases 
by the Editor xMonitor. The first is used as an inter- 
mediate storage unit (worki); the second is the new 
system library unit (newlu); The minimum configura- 
tion is limited to edit runs that involve only absolute 
column binary cards or the special ocr patch cards de- 
scribed later in the text. Another utility unit, wqRK2, 
must be available for an edit run that alters the ibrel 
section of the Subroutine Library (iblib). If an edit 
run causes the creation of an edit file, an additional unit 
is required. This unit must be a device that is not on 
channel S. 



Editor Control Cards 

Editor control cards, as distinguished from Editor 
parameter cards, have the standard System Monitor 
control card format with a $ in column 1 and the 
control card name in columns 2-8. They are interpreted 
by the Editor Monitor and govern the use that the 
System Monitor makes of its Editor program and any 
Processor components. 

$IBEDT Card 

The format of the $ibedt card is: 
1 



16 



$IBEDT 



options 



This is the basic Editor control card, appearing as 
the first card of every edit deck. Options that regulate 
the edit run are specified in the variable field, which 
starts in column 16. If the number of options specified 
is too great for all of them to be contained on the 
sibedt card, a $etc card may follow the sibedt card. In 
this case, a comma must follow the last option on the 
sibedt card. 
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87 




CBC066 


93 




CBC070 


95 




CBC074 


106 




MAPOIO 


145 


IBDMP 


IBOMPl 


10 




IB0MP2 


310 




IBDMP3 


314 


IBEDT 


IBEDTl 


. 363 




IBEDT2 


369 


IBFTC 


FTCOIO 


107 




FTC020 


117 




FTC030 


123 




FTC040 


131 




FTC050 


136 




MAPOIO 


145 


IBLDR 


LDRO 


206 




LDRI 


209 




LDRl 


211 




IBLIB 


216 




SRNAO 


217 




IBREL 


219 




LDR2 


296 




LDRL 


301 




LDR3 


304 




LDR4 


308 


IBMAP 


MAP020 


152 




MAP03C 


154 




MAP035 


163 




MAPC40 


165 




MAP050 


167 




MAP060 


175 




MAP070 


184 




MAP072 


187 




MAP074 


189 




MAP080 


192 




MAP082 


194 




MAP086 


202 


IBSRT 


SORT 


373 




EDPHAZ 


375 




DMPYEX 


384 




PHIFIX 


385 




PH2FIX 


387 




PH3FIX 


389 




LOAD 


393 




PHIVAR 


394 




PH2VAR 


397 




PH3VAR 


399 


IBSYS 


IBOOT 







IBNUC 


1 




IBSUP 


5 




IBTOC 


9 




IBIOC 


11 




MONITC 


13 




IBJOB 


21 


IBUTL 


IBUTL 


403 




IBUF 


405 




IBUL 


407 




IBUD 


408 




IBUR 


409 




IBUU 


410 




IBUC 


412 


LDRPRE 


LDRPRE 


26 


RELOAD 


RELOAD 


31 


UPDATE 


UPDATE 


413 
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The options that can be specified in the variable field 
are: 




,SLB2) 

SUxx[ = Iyy]) 

lyy[R] ) 



p/ S.SLBl 

)S.SUxx[ = Iyy] 

)iyym 
\— Inone 

This option is used to specify the unit or units that contain 
the old (master) System Library. Both a primary unit and a 
secondary unit may be specified. The primary unit specification 
appears first; the secondary unit specification follows immedi- 
ately and is enclosed in parentheses. 

S.SLBl indicates that the primary system library unit is to 
be used. 

S.SUxx indicates that utility unit xx is to be used. If the =Iyy 
specification is included, the unit is to be assigned the inter- 
system reservation code yy. 

lyy indicates that the unit already reserved by intersystem 
code yy is to be used. If R is added, the intersystem code is 
released and the reservation is canceled upon completion of 
the edit run. 

NONE indicates that no units are needed for the old System 
Library. The Editor is to create a new System Library, using 
only the contents of the edit deck for input. The IBOOT phase 
is inserted automatically. IBTOC is created in core storage but 
must be inserted into the new library through the use of an 
INSERT parameter card (described below). 

S.SLB2 indicates that the secondary system library unit is 
to be used. This option may be specified only when the primary 
unit specification is S.SLBl. 

If the primary unit for the old System Library is not specified 
(that is, if column 16 contains a blank or a comma), the primary 
system library unit (S.SLBl) is used. 

If the old System Library is contained on more than one 
unit, the last record on the first unit is a lEOR trailer label. 
When the Editor encounters this record, it switches to the 
specified secondary unit. In the event no secondary unit is 
specified, the Editor switches to S.SLB2 if S.SLBl was used 
as the primary unit. Otherwise, the edit run is terminated. 



[ 



(S.SUxx[ = Iyy]) 



<lyy[R] 
(IyyiR=Iyy2 



r (S.Sl 

](lyy[ 
L((iyyi 



SUxx[ = Iyy]) 
Iyy[R] ) 

R=Iyy2) 



This option is used to specify the unit or units that will con- 
tain the new System Library. Both a primary unit and a sec- 
ondary unit may be specified. The primary unit specification 
appears first; the secondary unit specification follows immediately 
and is enclosed in parentheses. The secondary unit must be the 
same type of device as the primary unit. 

S.SUxx indicates that utility unit xx is to be used. If the 
= Iyy specification is included, the unit is to be assigned the 
intersystem reservation code yy. 

lyy indicates that the unit already reserved by intersystem 
code yy is to be used. If R is added, the intersystem code is 
released and the reservation is canceled upon completion of the 
edit run. 

lyyi R = Iyy2 indicates that the unit reserved by intersystem 
code yyi is to be used. Upon completion of the edit run, this 
code is to be released and the unit is to be reserved by the 
intersystem code yy2. 

If the primary unit for the new System Library is not speci- 
fied, S.SUOl is used. If S.SUOl is not available, an available 
unit is chosen. If no unit is available, the edit run is terminated. 

If a secondary unit for the new System Library is not speci- 
fied, but a secondary unit is required, the edit run is ter- 
minated. 
[,LABEL (nn,mm,q,p)] 

This option is specified if checking of the version and modi- 
fication numbers of the old library unit(s) or label checking of 
the new library unit(s) is desired to preclude improper use of 
these units. 



The four subfields of the LABEL option have the following 
interpretation: 

nn = the version number of the old System Library, 
mm = the modification number of the old System Library, 
q = the number of old library units ( 1 or 2 ) . 
p = the number of new library units ( 1 pr 2 ) . 

The use of these subfields is explained in the following para- 
graphs. 

The version and modification numbers apply to the entire 
Operating System and should appear in the first word on each 
master library unit. This is the word that the System Monitor, 
at an initial start, moves from location lOOs to location S.SLVL 
in the Nucleus. If these subfields are used, the Editor Monitor 
checks the first word on the master library unit(s) against the 
specified nn and mm values to ensure that the proper System 
Library is being updated. Ari unequal comparison results in a 
code 31501 error message, and an operator-action pause permits 
acceptance or termination of the edit run. If the nn and mm 
values are verified or accepted, the modification number (mm) 
is incremented by one, and the new System Library is given 
this updated value. 

The q and p subfields specify the number of library units 
that require checking before the edit run begins. If q is omitted, 
one old library unit is assumed. If p is -Omitted, one new library 
unit is assumed; at the installations that use a labeled systeni, 
header labels on all intermediate units and one new library unit 
are checked by lOLS, unless p specifies a number greater than 
one. If label checking detects an invalid label, an error message 
is typed and an operation-action pause permits acceptance or 
rejection of the unit. If the installation does not use labels (indi- 
cated by the system assembly parameter LABELS SET or 1 ) , 
no header label verification is made for output units. 

The following combinations of the LABEL option subfields 
are valid: 



MEANING 

Check the label on one new 
library unit. 

Check the labels on two new 
library units. 

Check the version and modifi- 
cation numbers on one old 
library unit against the values 
nn and mm, and check the 
label on one new library unit. 
Same as the above, except that 
the labels on the two new 
library units are to be checked. 
Check the version and modifi- 
cation numbers on two old 
library units against the values 
nn and mm, and check the 
label on one new library unit. 
Same as the above, except that 
the labels on the two new 
library units are to be checked. 

To reset the version number, the preceding version number 
nn must be specified and mm must be omitted. 

The following examples show several LABEL options and 
the version and modification level of the new System Library 
resulting from each option: 

LABEL(9,) Version 10, Level 

LABEL ( 9, ,1,1) Version 10, Level 

LABEL ( 9, 0, 1, 1 ) \''ersion 9, Level 1 

/source \~| 

^NOSOURCEjJ 

This subfield indicates to the Editor Monitor the format of 
the edit run input. SOURCE indicates that some decks in the 



OPTION 

LABEL(,,, 1) 

LABEL(,,,2) 

LABEL (nn, mm) 
LABEL(nn, mm, 1) 
LABEL (nn, mm, ,1) 
LABEL(nn, mm, 1, 1) 

LABEL(nn,mm, ,2) 
LABEL(nn, mm, 1, 2) 

LABEL(nn, mm, 2) 
LABEL(nn>mm»2, 1) 



LABEL(nn, mm, 2, 2) 
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edit deck are in the source language of FORTRAN, COBOL, or 
MAP, whereas NOSOURCE indicates that some decks are in 
the MAP binary output format and must be processed by 
IBLDR. The SOURCE option logically includes the NO- 
SOURCE option. Thus, the former should appear on the 
$IBEDT card, if the edit deck includes source language decks 
as well as binary decks in MAP output format. The absence of 
either SOURCE or NOSOURCE indicates that the edit deck 
(including any LIRE data) consists only of cards in a format 
that may be processed directly by the Editor program, i.e., 
absolute column binary cards, OCT instruction cards, or re- 
locatable cards for a subroutine library. The list of options can 
be extended by assembly modification of the Editor Monitor 
and the Editor program. 

[,MXBLK(nnnn)] 

This subfield specifies the maximum block size for the new 
system library unit. It may be any decimal number that is less 
than, or equal to, the assembly parameter lEROl. If the decimal 
number is greater than the parameter lEROl, the block size of 
lEROl is used. 

[, NOMAP] 

This subfield specifies that the two maps, including the Sub- 
routine Library section list, will not be listed during the edit 
run. However, all parameter cards and error messages are 
hsted. 

[,EDTFIL(nn)] 

This subfield indicates that a previously generated edit file 
(with utility number nn) is to be accepted by the Editor, in- 
stead of creating another edit file. The number nn must not 
refer to a utility unit on channel S. The use of this option is 
meaningful only when a prior edit attempt was terminated 
(after the message 11500 BEGIN EDIT was typed) because 
of a machine or program malfunction. 

[,CORE(nnnnn)] 

This subfield indicates to the Editor Monitor that the value 
of S.SEND will have changed as a result of this edit run. The 
use of this subfield does not itself effect the change, but it 
enables the Editor to relocate the IBTOC record of the new 
system, using the new value of S.SEND. The new value 
( nnnnn ) is expressed as a decimal number between 16383 and 
32767. 

This subfield should be used only in a total relocatable 
edit when it is essential that the IBTOC record be relocated; 
that is, when either: 

1. The value of S.SEND will be decreased. 

2. The system has been expanded such that IBSUP on the 
new system will overlay a part or all of the IBTOC record, 
if the location of the IBTOC record is determined by the 
Editor using the current value of S.SEND. 

[, MIN] 

This subfield indicates that the physical unit on which the 
edit file is located is to be used for the intermediate storage unit 
WORK2. This reduces by one the number of units required for 
a NOSOURCE edit run that both alters the Subroutine Library 
and causes the creation of an edit file (e.g., a total system edit). 
The MIN option may not be specified when SOURCE is specified 
on the $IBEDT card. 

Note that when the MIN option is specified, the edit file is 
destroyed during the edit and, therefore, cannot be saved for 
subsequent runs that specify EDTFIL, 

Examples of typical $ibedt cards follow: 
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$IBEDT 



„LABEL( 4,19,1,2) 



This card causes the Editor Monitor to check the 
decrement and the address of the first word on the 
single master library unit (s.slbi) for the values 4 and 



19 (that is, version 4 and modification 19). The modi- 
fication number 20 will appear on the new System 
Library. If the installation uses a labeled system, the 
Input/Output Label System checks the retention dates 
on the new library units as well as on the editor work 
tape. 

1 16 



$IBEDT 



S.SU03,S.SU04,SOURCE 



This card causes the old System Library on s.suoa 
to be edited onto s.suo4. No check of the version and 
modification numbers is made, and the new System 
Library will have the same modification number as the 
master library. The source option causes the edit file 
to be stacked with the $ibedt card, the appropriate 
parameter control cards, and an absolute machine 
language version of the source language program. 

$ENDEDiT Card 

The format of the sendedit card is: 

1 16 



73 



$ENDEDIT 



any text 



[serial] 



This is the last card in the edit deck. It indicates 
to the Editor Monitor, during the stacking of the edit 
file, that the end of the deck has been reached. 

During Phase 1, the $endedit card indicates the end 
of the input deck to the Editor program. If the source 
or NOSOURCE option was taken, this card indicates the 
end of the edit file. 

Any text may appear in columns 16-72. 

Upon completion of an edit run, the message edit 
COMPLETE is typed on line. If there is a nonterminal 
error during editing, the message error encountered 
appears after the edit complete message. If there is a 
terminal error during editing, the message edit termi- 
nated is typed. In all cases, the Editor Monitor will 
position the system input unit immediately after the 
«endedit card. If the terminal error was due to an un- 
recognizable card on the system input unit, the Editor 
saves the unrecognizable card record and directs the 
Supervisor to inspect it. 

An example of a typical sendedit card follows: 
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$ENDEDIT 



MOD 25 COMPLETED 



This card causes the contents of the master library 
to be copied onto the new library through the ieof 
record. 

Any Editor parameter cards on the system input 
unit after the $endedit card (and not preceded by a 
new $iBEDT card) are treated as erroneous control 
cards. 
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Editor Parameter Cards 

Editor parameter cards direct the Editor program in 
the creation of an updated System Library. Note that 
these cards do not have a $ in column 1. The card name 
begins in column 8, and the variable field begins in 
column 16. In some cases, a variable appears in col- 
umns 1-6. Serial numbers may be punched in columns 
73-80. 

These bcd cards are interpreted by the Editor pro- 
gram. The Editor Monitor simply stacks them on the 
edit file if the source or nosource options are taken. 

CALLS Card 

The format of the calls card is: 

1 8 16 73 

sysnam CALLS phasei, phasea, . . . , phasen [serial] 

This card defines the normal sequence taken during 
execution of the phases of a subsystem. The Editor 
program requires this information to construct the 
Index and the Table of Contents. 

The CALLS parameter need only be used for the edit 
run during which a subsystem program is initially in- 
troduced into the System Library. The Index and Table 
of Contents entries are then available for subsequent 
edit runs involving that subsystem. However, this 
parameter may be used again, if it is desired to change 
a phase name, add a new phase, or alter the flow of 
a subsystem. 

The removal of a phase from the System Library 
does not require a new calls card. The name of the 
removed phase is deleted from the Table of Contents 
by using a remove card (described later in this text), 
and the flow is assumed to pass from the phase prior 
to the removed phase to that following it. 

The variable field of the calls card can be extended 
by the etc card ( described later in this section ) . 

The content of columns 1-6 is: 

sysnam 

This is the name by which a particular subsystem is identified. 
It will be stored in the first word of the Index entry for this sub- 
system. 

The content of columns 16-72 is: 

phasci, phases , . . . , phase,, 

This is a list of the BCD phase names of the subsystem iden- 
tified by sysnam in the order in which they are called by the 
System Loader. The phase name is stored in the first word of 
the Table of Contents entry for the phase. 

This Hst does not necessarily describe the actual sequence of 
the phases on the library unit. Accordingly, it is not necessary 
to have duplicate copies in the System Library of a phase com- 
mon to several subsystems. If the name of a phase that is 
already part of the System Library appears on a CALLS card, 
the Editor program creates, within that portion of the Table of 
Contents used by the new subsystem, an entry defining the loca- 
tion of the common phase. 

The calls card and all etc cards used to extend 
the list of phase names must be grouped together in 



the edit deck ahead of all other Editor parameter cards, 
except the remark cards, if any. 

An example of a typical calls card follows: 
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INAB 



CALLS ABC010,ABC()20,ABC030,XYZ020 



A card of this form results in the creation of one 
Index entry and four Table of Contents entries for the 
subsystem identified by inab. This example shows how 
any phase in the System Library, xyzoso in this case, 
may be designated as part of the logical flow of any 
subsystem component merely by placing it in the phase 
name string of the subsystem. This assumes, of course, 
that the phases can be executed sequentially, and that 
the common phase already exists or is being inserted 
into the System Library. 

ETC Card 

The format of the etc card is: 

8 16 73 

variable field continuation [serial] 



ETC 



This card may be used to extend the list of phase 
names in the variable field of the calls card, if this 
list overflows the parameter card. 

INSERT Card 

The format of the insert card is: 



16 



73 



INSERT 



\ lognam ) P. \ S.SUxx / 1 r . n 

JEOR fL']lyy[R] iJ f^^"^" 



The insert card causes the specified phase, pre- 
viously defined in a calls card, to be placed on the 
new library unit at its current position. If eor is speci- 
fied, it causes a standard ieor trailer label to be written 
immediately on the new library unit. The previous 
positioning of the library units is accomplished by 
other Editor parameter cards. Insertions may be made 
from either the system input unit, where it is now 
positioned, or any utility unit designated. If the pro- 
gram being inserted was assembled by the 7040/7044 
Basic Assembly Program, the last card of the absolute 
column binary deck must be a transfer card indicating 
the entry point to the program. 

The content of the variable field is: 

[ lognam 1 
IEOR J 

The lognam is the BCD phase name (which must begin with 
a character other than zero ) that the Editor program prefixes to 
the first block of the phase being inserted. This phase name is 
used by the System Loader to verify the loading of the phase 
and by the Editor program for altering the Table of Contents 
and for later editing of the System Library. The Editor program 
ignores any attempt to insert a phase with the same name as 
one that is already in the System Library and that is not re- 
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moved during the edit run, prior to the insertion of the new 
phase. The identical binary deck may be inserted at various 
points in the System Library by using different phase names on 
the INSERT card. 

The EOR option is avaihxble to cause reel switching to the 
next new library unit while writing on the new library unit. A 
lEOR trailer label is placed on the current new library unit, 
preceded and followed by a file mark, at the point at which it is 
currently positioned. 



rjS.SUxxM 

L ilyy[R]U 



S.SUxx is the alternate utility unit containing the program to 
be inserted. lyy specifies that the device to be used was pre- 
viously assigned intersystem reservation code yy. If R is ap- 
pended to the lyy code, the reservation will be removed after 
the device is used by the Editor program. 

This specification directs the Editor program. A subsystem 
must be directed by its own control cards, e.g., $IEDIT. 

An example of a typical insert card follows : 

8 16 



INSERT FTCOIO 

This card can be used to insert the phase ftcoio from 
the system input unit into the System Library at the 
current position of the new Hbrary unit. 

REPLACE Card 

The format of the replace card is: 



16 



73 



REPLACE lognam [' | ^^^^^f | ] [serial] 



This card is used to replace a phase in the System 
Library. 

The REPLACE card causes the master System Library 
to be copied onto the new hbrary unit(s) up to the 
phase (logical record) identified by lognam. The speci- 
fied phase is skipped over on the master library, and 
a new one is written in its place on the new library 
from the deck following the replace card. The new 
phase has the same name as the deleted phase, and the 
Table of Contents is updated to reflect the new load 
address and word count of the replacing phase's first 
block. 

The content of the variable field is; 
lognam 

This is the BCD phase name. See the definition of lognam 
given in the description of the INSERT card. 



r J S.SUxx M 
L Uyy[R] U 



S.SUxx is the alternate utility imit containing the deck of 
alteration cards or card images if it is not on the system input 
unit. lyy specifies that the device to be used was previously 
assigned intersystem reservation code yy. If R is appended to 
the lyy code, the reservation will be removed after the device 
is used by the Editor program. 

This specification directs the Editor program. A subsystem 
must be directed by its own control cards, e.g., $IEDIT. 



An example of a typical replace card follows: 

8 16 



REPLACE FTCOIO 

This card causes the blocks in the phase ftcoio to be 
replaced in the System Library by the data following 
this REPLACE card on s.sini. 



MODIFY Card 

The format of the modify card is: 

8 16 73 



MODIFY lognam [' j ^^^^^^ [ J [serial] 



The MODIFY card provides the normal means of 
patching a program that already resides within the 
System Library in absolute form. Corrections within 
or beyond the original program length may be made 
with this parameter. 

The old System Library is copied onto the new 
hbrary unit(s) up to the phase lognam. The word(s) 
to be changed within the program is overlaid by the 
patch word(s) while the program phase specified by 
lognam is being copied onto the new library unit. In 
cases where the modification is not within the length 
of the original program, new blocks may have to be 
created or the present ones expanded (the section 
"System Library Format" gives the description of a 
block). 

The modification cards, containing the load address 
and the patch, may be in the format of the special ocr 
patch card described later in the text, or they may be 
in any other card format acceptable to the Editor 
Monitor. 

The content of the variable field is: 
lognam 

This is the BCD phase name. (A definition of lognam is given 
in the description of the INSERT card. ) 



r< S.SUxx n 

L Uyy[R] \j 



This option is used to specify the alternate unit holding the 
modification cards if they do not follow the MODIFY card on 
the system input unit. When the modification cards are on the 
system input unit, the Editor program can determine the end 
of the correction cards by the appearance of the next Editor 
parameter card. If an alternate unit is specified by this option, 
the final modification card should be a transfer card. If the 
transfer address is zero, the existing entry point is not modified. 
This specification directs the Editor program. A subsystem must 
be directed by its own control cards, e.g., $IEDIT. 

S.SUxx specifies that utility unit xx is to be used as the alter- 
nate unit. lyy specifies that the device to be used was previ- 
ously assigned intersystem reservation code yy. If R is appended 
to the lyy code, the reservation will be removed after the device 
is used by the Editor program. 
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An example of a typical modify card follows: 

8 16 



MODIFY FTC010,S.SU10 

This card causes the patches on the modification 
cards on utility unit 10 to be included in the phase 
FTCOio as it is being written on the new library unit. 

REMOVE Card 

The format of the remove card is: 

1 8 16 73 



[sysnam] REMOVE [ ) eoR™ 



n 



[serial] 



This card is used to remove a phase from the System 
Library. If a subsystem name appears in the location 
field (card columns 1-6), the entire subsystem will be 
deleted. 

Upon recognizing the remove card, the Editor pro- 
gram copies the old System Library onto the new 
library unit up to the designated phase or up to the 
lEOR trailer label. The phase is spaced over on the old 
library unit, its name is removed from the Table of 
Contents, and editing resumes with the next Editor 
parameter card. 

When a phase has been removed from the Table of 
Contents by means of a lognam or a sysnam reference 
(as explained below) that phase may not be used in 
another Editor parameter card until the phase is re- 
inserted. 

The content of columns 1-6 is: 

[sysnam] 

This is the name by which the subsystem to be removed is 
identified. It appears in the first word of the Index entry for this 
subsystem. In this use of the REMOVE parameter, the variable 
field (card columns 16-72) is left blank. Phases common to 
other subsystems and the subsystem being removed are not re- 
moved from the System Library. Only their appearance in the 
Table of Contents string of entries for the removed subsystem 
is deleted. 

The content of columns 16-72 is: 

n lognam { 1 
EOR U ^ 

The lognam is the BCD phase name that identifies the phase 
to be removed. It appears as the first word of the Table of Con- 
tents entry for the phase. 

If the EOR option is specified, the contents of the System 
Library up to, but not including, the lEOR trailer label are 
copied into the new library. This is a method of condensing 
the System Library onto one system unit. While unit switching 
occiirs on the master library unit, the new library unit remains 
unchanged. 

An example of a typical remove card follows: 



This card would be used to remove the cobol Com- 
piler from the Operating System. 

AFTER Card 

The format of the after card is: 



8 



16 



73 



AFTER EOR 



^ lognam ) 



[serial] 



This card causes the copying from the old library 
to the new library of all phases up to and including 
either the phases specified or the ieor trailer label. In 
either case, unit switching of both the old and the new 
library units is automatic when the end-of-reel record 
is read. 

The content of the variable field is: 



S lognam } 
I EOR \ 



The lognam is the BCD phase name of the last phase to be 
copied. If EOR is specified, the master System Library will be 
copied through the IEOR trailer label, with automatic unit 
switching. 

An example of a typical after card follows: 

8 16 



AFTER 



FTCOIO 



The use of this card causes the master System Library 
to be copied from its current position through phase 



FTCOIO. 

DUP Card 

The format of the dup card is: 

8 16 



73 



DUP 



unitl, unit2, n, inlabel, 
cdate, oulabel, rdays 



[serial] 



IBCBC 



REMOVE 



This parameter permits a specified number of phases 
to be copied from one symbolic unit to another. Phases 
may be duplicated from a master library unit onto a 
utility unit, from a utility unit onto a new library unit, 
or from one utility unit onto another utility unit. 

The use of the dup card with the rewind card (de- 
scribed in the next section) simplifies the reordering 
of various phases or complete systems within the Sys- 
tem Library. This parameter is also useful for placing 
specially edited phases, such as special data blocks, 
library subroutines, test cases, etc., on the new library 
unit, provided they are in the System Library format. 

If the DUP card is lised to rearrange the system, do 
not copy the Table of Contents (ibtoc), since it reflects 
the order of the old system. 
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The content of the variable field is: 

Tinitl 

This is the unit from which the phase will be duplicated. 
The unitl specification may be either S.Sxxx or Iyy[R]. S.Sxxx 
specifies the symbolic unit to be used. lyy specifies that the unit 
previously assigned intersystem reservation code yy is to be 
used. If R is appended to the lyy code, the reservation will be 
removed after the unit is used by the Editor program. 
unit2 

This is the unit onto which the phases are copied. An attempt 
to copy records onto a master library unit or onto a system 
library unit, system input unit, system output unit, or system 
punch unit is ignored. The unit2 specification may be either of 
those described above for unitl. 



The number of phases to be duplicated is specified by n. One 
phase is duplicated if n is blank, 
inlabel 

This specifies up to ten characters, which will be left-justified 
with trailing zeros. These characters are used to verify the input 
label. 

cdate 

The five-digit date in the form yyddd on which the input label 
was created 

oulabel 

Up to ten Characters that will be left-justified with traiUng 
zeros and used to create the output label 

rdays 

A four-digit number that specifies the number of days the file 
is to be retained 

All arguments appearing in the variable field must 
be separated by commas and must be in the order 
presented. 

The fields inlabel, cdate, oulabel, and rdays are 
optional and are used to eflFect label verification or 
creation for dup input or output units. It is the user's 
responsibility to include these fields on dup cards at 
the point where label verification or creation is re- 
quired. The Editor assumes all units to be properly 
positioned in front of the data to be processed next. 
The REWIND parameter should be used, if required, 
before label verification or creation. 

Examples of typical dup cards follow: 



8 
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DUP 



S.SU03,S.SU04,3,DUPLICIN, 

63031,DUPLICIN,10 



This card causes three phases to be copied from 
S.SU03 onto S.SU04. It will also verify the header label 
on S.SU03, created on January 31, 1963 with file identi- 
fication DUPLiciN, and will create on s.suo4 a label that 
has the same file identification and that is to be retained 
at least ten days. 
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This card causes one phase to be copied from s.slbi 
onto S.SU04. It also causes a header label with file 
identification ^upoutb and a retention period of 365 
days to be written on s.suo4. s.slbi has no label. 
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DUP 



S.SU04,S.SU11„LBLNAM,63032 



This card causes one phase to be copied from s.suo4 
onto s.suii. It also causes the verification of the header 
label on s.suo4. The label was created on February 1, 
1963 and has the file identification lblnam. No label 
will be created on s.suii. s.suiimay not be positioned 
at the beginning of the file. 

Format Requirements: Phases copied onto the new 
library unit must meet the following System Library 
format requirements: 

1. Each block of the phase, except the last block, 
must end with a word whose sign is plus. 

2. The last block of the phase must end with a word 
whose sign is minus. 

3. The first word of the initial block must contain 
a BCD phase name that is also Hsted on a calls card. 

4. There must exist a three-word header block speci- 
fying the load address and word count of the initial 
block of the phase to be duplicated, with the following 
format: 



WORD! 



BCI 
PZE 
BCI 



l,phznam 

la„wdct 
1 ****** 



DUP 



S.SLB1,S.SU04,1,„DUPOUTB,365 



The following definitions apply to the symbols used 
above: 

phznam 

Phase name to be entered into the Table of Contents. It is 
left-justified, with trailing blanks, if any. 

la 

Load address of the first block, 
wdct 

Number of words in the first block. 

This three-word block is used by the Editor program 
to update the Table of Contents entry for the specific 
phase. All phases duplicated by the Editor from the old 
library unit are prefixed by this header; it is not copied 
into the new System Library. 

If the record being duplicated on the new library 
unit does not have a three-word header block, the 
Editor accepts the logical record, but the load address 
in Word 2 of the Table of Contents entry for the phase 
is set to zero. The System Loader may be used to 
position the library to this block, but it cannot be used 
to load the phase. This requirement for a header block 
does not apply when duphcating a phase from the old 
library unit indicated on the sibedt card, as the Table 
of Contents already contains the proper phase name, 
load address, and word count for such a phase. 
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REMARK Card 

The format of the remark card is: 



16 



73 



REMARK any text 



[serial] 



The REMARK card is written in full on the system 
output unit. Columns 16-36 of the first remark card 
in the edit deck are inserted into the title line of the 
System Library maps. Subsequent remark cards are 
typed and are followed by a machine pause for action 
by the operator during Phase 1. An asterisk in card 
column 7 will effect typing and pause during Phase 2 
for DUP reel handling. 

The variable field contains the message for the 
machine operator and/or programmer. 

An example of a typical remark card follows. 



16 



REMARK 7040/44 OPSYS 9/5 

If this is the first remark card in the deck, it will 
appear in the title line of the System Library maps on 
the system output unit. 

REWIND Card 

The format of the rewind card is: 

8 16 73 



REWIND 



j S.Sxxx 

ilyy[R] 



[serial] 



This parameter causes the specified symbolic unit to 
be rewound. Any attempt to rewind the new library 
unit or the System Editor intermediate unit (worki) 
is disregarded, and the next control card is read. 

The content of the variable field is: 
j S.Sxxx I 

iiyy[R] \ 

This is the symbolic unit to be rewound. lyy specifies that the 
device to be used was previously assigned intersystem reserva- 
tion code yy. If R is appended to the lyy code, the reservation 
will be removed after the device is used by the Editor program. 

An example of a typical rewind card follows: 



8 
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REWIND S.SU05 



This card will cause utility unit 5 to be rewound. 



LIBE Card 

The foraiat of the lire card is: 

8 16 



73 



LIBE 



[libenm] [,format] 



[serial] 



The lire parameter signals that relocatable sub- 
routines are to be added, deleted, or replaced in the 



System Library. Each subroutine deck must be pre- 
ceded by an insert, replace, remove, or after param- 
eter card to specify^ the type of editing to be performed. 
An alternate input unit may not be specified on any of 
these cards. 

The relocatable subroutine deck that is used as 
direct input to the Editor program for editing into 
the Subroutine Library (iblib) contains, a sibldr card, 
a scDiCT card, a binary control dictionary, a stext 
card, binary text, and a sdkend card, in that order ( see 
Figure 17, which appears later in the text). This is 
the relocatable binary deck normally produced by 
the Macro Assembly Program. The Editor program 
analyzes the control dictionaries of all the subroutines 
and generates the Control Section Name List, the 
Dependency Name List, and the subroutine deck 
blocks needed by the Loader ( ibldr ) . $text and binary 
text may be omitted, in order to include only the 
control dictionary information with the Subroutine 
Library. 

The content of the variable field is: 

[libenm] 

The libenm is the phase name of the subroutine library to be 
edited. It specifies the phase up to which the master System 
Library is copied. If libenm is omitted, IBLIB is assumed. If 
libenm is lEDBG, a separate subroutine library will be edited, 
for use by the Debugging Processor. 

[, format] 

This option defines the relocation scheme; that is, it indicates 
the format of the relocatable card ■ decks. For example, re- 
locatable binary output from the Macro Assembly Program 
would be designated by IBMAP. If this option is omitted, Macro 
Assembly Program output format is assumed. 

An example of a typical lire card follows: 
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LIBE 



IBLIB,IBMAP 



This card causes the System Library to be copied 
up to the Subroutine Library. It must be followed by 
an insert, replace, remove, after, or libend card. 
A map relocatable output deck or a Processor deck, 
including a source language deck, may follow next. 
In the latter case, the Editor Monitor calls the Proc- 
essor to produce the relocatable deck. 

LIBEND Card 

The format of the libend card is: 

8 73 



LIBEND 



[serial] 



The libend card must be the last card on a Subrou- 
tine Library alteration deck. It signals the Editor pro- 
gram that the end of the alteration cards for the Sub- 
routine Library specified on a prior lire card has been 
reached. 
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An example of a typical libend card follows: 

8 



LIBEND 

This card would be used to indicate the end of the 
last relocatable deck. If the libe card is followed by 
a LIBEND card, the Subroutine Library (iblib) is re- 
processed. That is, a new Control Section Name List 
and a new Control Section Dependency List are gen- 
erated, and a map of the Subroutine Library is printed. 



Using the System Editor 

The System Editor can accept any of the following 
types of input: 

1. MAP, FORTRAN IV, or COBOL sourcc language coding 

2. Source language coding for any subsystem that 
an installation has added to the System Library whose 
output is in an acceptable format 

3. Absolute 22-word column binary card images 

4. Macro Assembly Program binary output card 
images 

5. Records in System Library format 

6. OCT card images 

In addition, the System Editor can be expanded by 
an installation to include other formats for which a 
processor exists on the System Library. 

The first five types of input were described pre- 
viously in the discussion of the Editor Monitor. A de- 
scription of the OCT instruction or patch card follows. 

OCT Card 

The format of the oct card is as follows: 

1 7 8 16 
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loada [*] OCT patchi,patch2,...,patch„ [serial] 

The OCT card is convenient for changing existing 

programs in absolute format without reassembly. 
The content of columns 1-6 is: 

loada 

This is the octal location at which the first data word will be 
overlaid or inserted. 

Column 7 contains an asterisk if the oct card and the 
name of the phase it aflFects are to be listed by Phase 1 
of the Editor program. 

The content of columns 16-72 is: 

patchi, patcha, . . . , patchn 

These indicate the patches for n consecutive data words, 
starting with the data word at location loada. Each patch is 
separated from the others by commas and may consist of from 
through 12 octal digits. If there are fewer than 12 octal digits 
ma patch, the specified digits are inserted into the rightmost 
positions of the data word; the leftmost positions are filled with 
zeros. Consecutive commas (a patch consisting of octal digits) 
result m a patch word that contains only zeros. Thus up to 
58 patches may appear on one OCT card. 



Seriahzation, if present, is checked on the parameter 
cards as well as on the binary change-cards. A blank 
serial field terminates one serial check and begins 
another. Cards that are out of sequence will be noted 
on the system output unit during Phase 1; however, 
they will be used. 

An example of a typical oct card follows: 
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11325 



OCT 



050000410351,007400410102, 

77777„0,400000 



This OCT card would be used to insert a cla instruc- 
tion, a Tsx instruction, and four parameters into six 
consecutive data words, starting with octal location 
11325. The following shows the octal, location and the 
contents of each patched word: 



11325 
11326 
11327 
11330 
11331 
11332 



050000410351 
007400410102 
000000077777 
000000000000 
000000000000 
000000400000 



Preparation of Programs to be Edited 

Programs that are not assembled by the Macro As- 
sembly Program must be pre-assembled in absolute 
column binary format. The System Editor does not 
consider relocation schemes. The relocation of Macro 
Assembly Program output is performed solely by the 
Loader, except in the case of subroutines to be placed 
in the Subroutine Library (iblib). 

Programs must have a means of indicating the point 
to which control should be transferred after they are 
loaded by the System Loader. This may be accom- 
plished by the transfer card produced by the Basic 
Assembly Program when the symbolic name of the 
entry point appears in the variable field of the end 
card. Determination of the entry point of a Macro 
Assembly Program output deck is accomplished by 
the Loader through inspection of the control dictionary 
for that program or inspection of the sentry control 
card. The Loader passes this information to the Editor 
program. The sentry card is omitted in input to the 
Subroutine Library. 

An object program that is not in a format acceptable 
to the Editor Monitor, but which must be included in 
the System Library, can only be added by use of the 
Dup card. Blocks are copied from the dup input unit 
onto the new library unit without alteration in format. 

If the programs to be edited onto the new library 
unit are in a source language that can be translated 
by the Processor, in the Macro Assembly Program 
binary output card format, or in a format that can be 
treated by a processor that the installation has added 
to the System Library, the programmer must provide 
the control cards normally required by any of these. 
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For example, he must prepare $ibjob, $iedit, sibftc, 
$FiLE, and SENTRY cards. In the case of the Macro 
Assembly Program output, he must ensure that the 
$iBLDR, $CDiCT, $TEXT, and SDKEND cards (and possibly 
the SENTRY card) are present in the deck. 

If a SDDICT card is encountered during any edit run, 
this card and the subsequent debugging dictionary 
will be ignored by the Editor; they will not appear in 
the phase on the new System Library. 

Symbolic Unit Assignment 

If symbolic channel assignment or symbolic unit refer- 
ence is used in an object program that is to be edited 
into the System Library, the following points should 
be noted: 

1. If a symbolic unit reference is specified, the ab- 
solute address of the Symbolic Units Table entry for 
the unit is taken from the Nucleus cdict in the Sub- 
routine Library at load time. 

2. If a symbolic channel reference, intersystem reser- 
vation code, or "any unit" reference is specified, a 
symbolic unit is equated to the reference at load time 
and the absolute address for the unit is determined as 
in point 1 above. However, a unit that is available at 
load time may not be available at execution time. 

3. If label searching is specified and the mounting 
option is not defer, the unit chosen is the one for which 
the label on the device is suitable at load time. The 
absolute address for the unit is determined as in point 
1 above. 

4. If deferred label searching is specified, the unit 
chosen is the one for which the label is suitable at 
execution time. 

5. If none is specified, the Symbolic Units Table ad- 
dresses of the primary and secondary units must be 
placed in the appropriate fields of the file control blocks 
before the file is opened. Subroutines are included in 
the Subroutine Library to search for appropriate units. 
One of these subroutines, s.scod, accepts as input any 
of the unit specifications that are allowed on the $file 
card or in the variable field of the fh^e pseudo- 
operation. This subroutine converts the unit specifica- 
tion into codes that can then be used as input to 
other routines. A description of these subroutines is 
given in Appendix C. 

Examples of Edit Runs 

Edit Run for Disk 

Figure 13 shows the method of editing the System 
Library onto disk storage. It includes the control 
cards needed to format a 1301 Disk Storage unit 
before editing, as well as those needed to edit the 
system onto the disk. The following points are assumed: 



1. The Nucleus of the master library has been re- 
assembled so that s.SLBi is attached as a disk unit. 

2. The system wa;s initially loaded from s.sui9, a tape 
unit, using the special initial start procedure for load- 
ing the system from a unit other than s.slbi (see 
the publication IBM 7040/7044 Operating System 
(16/32K): Operators Guide, Form C28-6338). This will 
cause an automatic switch of s.slbi and s.sui9. 



1 8 


16 


$DATE 


01/29/65 


$EXECUTE 


IBUTL 


IBUFBW S.SU19/0-99/01/'t65 | 


IBUFHW Z/0- 


-3999 


$IBSYS 




$IBEDT 


S.SLBI, S.SU19 


$ENDEDIT 




$IBSYS 




$STOP 





Figure 13. Editing the System onto Disk 

Inserting a Program Into the'Library 

Figure 14 shows the control cards needed to edit the 
system sysx, composed of the phases logi, logs, and 
coMP,ihto the System Library. The new System Library 
is written on utility unit 6. After the system has been 
edited into the System Library, it may be called by 
means of the sexecute card. 



1 8 16 

$IBEDT ,S.SU06 

SYSX CALLS L0G1,L0G2,C0MP 

INSERT LOGI 



22-WORD ABSOLUTE. COLUMN BINARY DECK) 
NSERT L0G2 

22-WORD ABSOLUTE COLUMN BINARY DECK) 
NSERT COMP 
;22-WORD ABSOLUTE COLUMN. BINARY DECK) 



$ENDEDIT 



Figure 14. Inserting a Program into the Library 

Replacetfient Using Symbolic Editing 

Figure 15 shows the method of editing a source lan- 
guage program, in this case a map language program, 
into the System Library. Since the phase phz98 is re- 
placing a previously existent phase, there is no need 
for another calls parameter. The label option indi- 
cates to the Editor Monitor that it must check the 
first word of the master System Library for the values 
corresponding to version 3, modification 19. The 2 
in the third subfield of the label argument indicates 
that the master System Library is on two devices. The 
modification number 20 will appear on the new System 
Library. The Input/Output Label System checks the 
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retention date in the label on the unit used for the new 
System Library. 

Although two master hbrary units are indicated, the 
new System Library will be created on only one unit. 
A REMOVE EOR parameter is included to cause the re- 
maining contents of the two units to be combined on 
one new library unit. 

The Editor Monitor, finding the source option on 
the sibedt card, causes the edit file to be stacked ini- 
tially with the replace parameter. Control is released 
to the Processor to prepare a machine language version 
of the source program phz98. The Processor Monitor 
calls the Macro Assembly Program to assemble the 
program, directs the Loader (ibldr) to place an abso- 
lute machine language version of the program on the 
edit file, and returns control to the Editor Monitor. 
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$IBEDT 

REPLACE PHZ98 
$IBJOB PH298 
$FILE PHZ98 



LABELC3, 19, 2,1), SOURCE 



'FILEA',UOO 



(SOURCE LANGUAGE PROGRAM IN THE MAP LANGUAGE) 



$ENTRY PHZ98 

REMOVE EOR 
$ENDEDIT 



Figure 15. Replacement Using Symbolic Editing 
Modification Using Symbolic Editing 

Figure 16 shows the absolute source method of editing 
for system modification. The example illustrates how 
a routine for initial start processing can be inserted 
after the Nucleus. 



1 

$IBEDT 


8 


16 
SOURCE 




SIBJOB 


MODIFY 


IBNUC 




$IBMAP 


IBHOUR 


ABSMOD 




IBXIT 


BOOL 
ORG 


7157 
IBXIT 


ABSOLUTE LOCATION OF IBXIT 


IBTIM 


TRA 
ORG 
EQU 


IBTIM 

76'47 
:: 


OVERLAYS INST. SWT RUPSW 
LAST LOCATION + 1 OF HOUSE- 
KEEPING IS S.SCBL + IBS15 + 1 


CROUTINE 


IN MAP LANGUAGE) 




SWT 
TRA 


RUPSW 
IBXIT+1 


RESTORE OVERLAID INST. 




TRA 


IBXIT+2 




IBMVE BOOL 
END 

Sentry 
Sendedit 


62'*6 
IBMVE 


START OF HOUSEKEEPING 



Figure 16. Modification Using Symbolic Editing 

The Assembler produces a standard entry point for 
every deck it assembles. Since the deck that is being 
assembled, in most cases, will not have the same entry 
point as the system record that is being modified, the 
entry point of the system record is designated by plac- 
ing a symbol in the variable field of the end card. 



The origin of the modification ( specified in the vari- 
able field of the org pseudo-operation) must be the 
first location ^t which the modification is to be placed. 

Inserting a Relocotable Subroutine • 

Figure 17 illustrates the insertion of a program into 
the Subroutine Library (iblib) and the removal of a 
program already in iblib. The libe parameter speci- 
fies the library name and the format of the cards. The 
$ibedt card does not contain the nosource option 
because the Editor program processes the map binary 
decks and control cards itself when a run affects only 
the Subroutine Library. In this example, the master 
System Library is on s.suOT, and the new one is chosen 
by the Editor since it is unspecified. 



1 "8 16 

$IBEDT S.SU07 

LIBE IBLIB,IBMAP 

INSERT DECKXY 

$IBLDR DECKXY 

$CDICT DECKXY 



(CONTROL DICTIONARY. FOR DECKXY) 



$TEXT 



(BINARY TEXT FOR .DECKXY) 



$DKEND DECKXY 

REMOVE DECKPQ 

LIBEND 
$ENDEDIT 



Figure 17, Inserting a Relocatable Subroutine 

Adjustments After Reassembling the Nucleus 

If the Nucleus or a relocatable program used by the 
Processor, such as the Input Editor or the Output 
Editor, is reassembled and system symbols are re- 
defined, all subsystems may require reloading to adjust 
their references to the changed program. The sub- 
routines with their revised references must be in- 
serted into the Subroutine Library (iblib), and the 
Control Section Name List and the Dependency Name 
List must be regenerated. After the library has been 
revised, it is possible for the Loader to reload the 
subsystem programs that are affected by changes, 
e.g., to the Nucleus, with the altered locations of entry 
points, and data, properly adjusted. 

A pause may be made with the $pause card, if not 
enough input/output devices are available to allow 
a device to replace the one containing the original 
System Library. It is possible in two ( uninterrupted ) 
runs to obtain a properly reloaded System Library. A 
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similar situation arises when a revision to the input/ 
output editors necessitates an edit run to reload certain 
system programs. 

The $swiTCH card is used to switch the library func- 
tion with a utility function; the only changes on the 
first newly written System Library are the record 
counts of various Table of Contents entries and the 
iBLiB, SRNAD, and iBREL logical records. Upon determin- 
ing that the s.slbi function is being switched, the 
Supervisor reads in a new Index and Table of Contents, 
a new ibsup phase, and resets the contents of location 
s.SDEX. The Loader on the new System Library re- 
locates those systems programs within the second edit 
deck, against a revised iblib. At the completion of the 
edit run for the second deck, a new System Library, 
containing a new Nucleus and a properly adjusted 
subsystem program, is ready for testing. 

Inserting a Source Language Subroutine 

Figure 18 shows the input deck used to insert the 
relocatable subroutine arctan into the Subroutine 
Library. The Editor Monitor passes control to the 
Processor to translate the Fortran source language 
subroutine and stack it on the edit file in relocatable 
format. After this edit run, arctan will be the first 
subroutine in the Subroutine Library. Since the Loader 
(ibldr) is not used on decks to be placed in the Sub- 
routine Library, the sentry card is not used. Instead, 
the sjEDiT card feturns control to the Editor Monitor. 



will appear after phase ibdef of the Debugging Proc- 
essor. 



1 

$DATE 

$JOB 

$IBEDT 


8 
REMARK 


16 
12/31/63 

SOURCE 

SYMBOLIC LIBRARY UPDATE 


$IBJOB 
$IBFTC 


LIBE 
INSERT 

ARCTAN 


ARCTAN 
NOGO 



(FORTRAN. STATEMENTS FOR. ARCTAN. SUBROUTINE) 



$JEDIT 

$ENDEDIT 

$IBSYS 

$JOB 



LIBEND 



.NEXT JOB. 



1 8 


16 


SDATE 


12/*/6A 


SJOB 




SIBEOT 




DEBUG CALLS 


IEDBG»SRNDB»IBDBG 


AFTER 


IBOEF 


LIBE 


lEDBG 


(DECK) 




LIBEND 




SENDEDIT 




SI6SYS 




SSTOP 





Figure 19. Inserting New Subroutine Library 

Inserting a Chain Program 

Figure 20 shows the procedure to be followed to insert 
a chain program into the System Library. 



$DATE 
$JOB 




INSERT MAINAM ONTO SYSTEM 




$IBEDT 


MA I NAM 


NOSOURCE 

CALLS MAINAM.,LINK1,LINK2, . . 

AFTER SUBR 

INSERT MAINAM 


.,LINKN 


$IBJOB 
$CHAIN 


PROGR 


NOSOURCE 
MAINAM 




$ENTRY 
$LINK 




LINKl 




$ENTRY 
$LINK 




LINKN 




$ENTRY 

$ENDCH 

$ENDEDIT 

$IBSYS 

$STOP 







Figure 18. Inserting a Source Language Subroutine 

Inserting a New Subroutine Library 

Figure 19 shows the input deck used to insert the new 
Subroutine Library iedbg for the Debugging Processor. 
The CALLS cards causes the three names iedbg, srndb, 
and ibdbg to be added to the Table of Contents. These 
names are counterparts of iblib, srnad, and ibrel in 
the Subroutine Library iblib. After this edit run, iedbg 



Figure 20. Inserting a Chain Program 

The program should then be called as follows: 
$DATE 
$JOB 

$EXECUTE MAINAM 
$IBSYS 
$STOP 

Special Considerations 

Because of the simulation of scatter-loading of System 
Library programs, the Editor program must end a 
block whenever there is a break in contiguity within 
the edited program. Such breaks occur because of bss 
areas, new origins, etc. Thus, to avoid unnecessary 
interrecord gaps on a tape library unit, or poor usage 
of disk track space, depending on the programs edited 
into the System Library, it might be practicable to re- 
place BSS areas within the program data length by 
words of zero. For bss areas appearing after the data 
length of the program, no problem arises. 

It might be desirable to patch an existing, previously 
loaded program by inserting a one-word overlay. If 
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this one-word overlay is contiguous with data in the 
program, no problem arises. However, if the one- word 
overlay is not contiguous with other data, a new block 
will be created for this single word. Since all blocks 
must be three words or longer, a zero word will be 
appended to the data word by the System Editor. 
Such a block would cause a word in the overlaid pro- 
gram to be lost, since the System Loader saves only 
the single word overlaid by the chain word. 

To avoid this problem, such a one-word overlay 
should always be lengthened to two words by also 
overlaying the word following the originally desired 
overlay address. This would bring the data block, 
plus the chain word, up to the standard block length, 
and no zero word need be appended. 

Interface with the Processor 

Upon encountering source or nosource on the sibedt 
card, the Editor Monitor prepares to pass control to 
the Processor to have the input to the Editor program 
,preprocessed, that is, compiled, assembled, and, if 
necessary, relocated. The Editor Monitor defines the 
• edit stack file as described in the section "Editor Moni- 
tor," turns thfe edit flag bit on in location s.sflg, and 
initializes the Nucleus communication word s.edun. 

Then, the monitor copies all cards from s.sini onto 
the edit stack file, except Processor control cards such 
as those processed by the Loader or by the Fortran 
and COBOL compilers. The Processor control cards are 
indicated by the presence of a sibjob card immediately 
after the Editor paran\eter card naming the phase to be 
replaced, inserted, or modified. 

Upon encountering the sibjob card, the Editor Mon- 
itor allows the Processor to gain control of the system 
input unit, s.sini. The Processor then causes the ma- 
terial affecting the specified phase to be converted and 
placed on the edit stack file, immediately after the 
Editor parameter card. Following this stacking by the 
Processor, control is returned to the Supervisor by 
means of a control card, $jedit, which is placed in 
s.sAVE by the Loader (ibldr). This card causes the 
Supervisor to return control to the Editor Monitor, 
which recognizes that an edit stack file is being pre- 
pared. 

The Editor Monitor then sets a switch in the Super- 
visor to cause the card-reading routine, imret, to re- 
enter the Editor Monitor when a binary card or a bcd 
card that is not a $ card is read. Such cards are stacked 
on the edit stack file. Control is given either to the 
Processor, because a $ibjob card follows an Editor 
parameter card, or to the Editor program, because a 
$ENDEDiT card is found. When the last control card is 
encountered, the edit stack file is closed and rewound, 
and control is given to the Editor program through 



s.SLDR. Phase 1 of the Editor program now reads the 
edit stack file instead of s.sini, and editing proceeds as 
usual. » 

$JED1T Card 

This card is used to terminate each source insertion 
or replacement that affects the Subroutine Library. 
This card is also generated by the Loader after the 
Loader has stacked all material for a phase to be 
inserted or replaced in the System Library. Upon 
reading this card, the System Monitor transfers control 
to the Editor Monitor which processes the Editor con- 
trol or parameter card. 

Special Conditions 

To cause the Editor Monitor to enter a monitor other 
than the Processor Monitor, the $ control card for the 
particular monitor must be entered in the Recognizable 
Control Card Table for the Supervisor. During an edit 
run, the presence of the $ control card after an Editor 
parameter card causes control to be given over to the 
specified monitor. 

Further modification may be effected by causing 
the Editor Monitor to recognize options other than 
source or nosource on the $ibedt card and by trans- 
ferring to the necessary routines to operate with the 
new monitor. The list limited by symbols ire5A and 
IRE5B should be expanded to include the new option 
and the entry point to the new subroutine. If the new 
monitor accepts the opening and stacking by the 
Editor Monitor of the edit stack file, and the setting of 
bit 24 of S.SFLG, the only change required is the addi- 
tion of the new monitor's control card arid entry point 
in the Recognizable Control Card Table for the Super- 
visor. In this case, the appearance of nosource on the 
$iBEDT card is sufficient to accomplish proper preproc- 
essing for the edit run. 

Editor Program Off-Line Messages 

The following messages are listed off-Hne on s.soui. 
Any one of the three action messages below may be 
appended to the message text. 

1. Condition ignored — indicates that the error 
( check sum error, etc. ) is accepted. 

2. Condition cannot be ignored — indicates that edit- 
ing proceeds by deleting the erroneous data (invalid 
parameter card, etc. ) . 

3. Edit terminated — indicates that the edit run is 
stopped and that control is returned to ibsup. 

If no action message appears, the message comes 
from the Editor Monitor. 

11500 BEGIN EDIT 

This message is typed and control is transferred to Phase 1 
of the Editor following opening of the input/output devices 
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and interpretation of the $IBEDT card. This message also ap- 
pears following possible use of processor programs for special 
preprocessing of edit input. 

11501 BEGIN EDIT PREPROCESSING, EDIT FILE 
xxxxxx 

This message is typed when the Editor Monitor temporarily 
releases control to the Supervisor for reading and routing of a 
System Monitor control card, such as a $IBJOB card, because of 
the SOURCE-NO SOURCE option (or a similar option) on the 
$IBEDT card. For example, the $IBJOB card causes control 
to pass to a Processor component to compile, assemble, and/or 
load the phases to be edited. So that it may be saved for 
future use, the edit file is identified by means of the EDTFIL 
(nn) option of the $IBEDT card. Message number 11500 is- 
typed when the $ENDEDIT card is read, and control is 
transferred to the Editor program. 

11502 PREPROCESSOR DETECTED ERROR 

One or more errors that would cause deletion of execution 
in a non-edit run have been detected by IBLDR and/or IBMAP 
during edit preprocessing. The specific error(s) is listed on the 
system output unit. This message will always be followed by 
message 11541. 

11503 S.SUOl NOT AVAILABLE, NEWLU IS xxxxxx 
The new library unit was not specified in the $IBEDT card. 

Since S.SUOl is reserved, xxxxxx is the unit chosen for the 
new library unit. 

11504 xxxxxx FIELD IN ERROR, OPTION IGNORED 
This message is typed when an option on the $IBEDT card 

is not valid. For example, this message would be used if 
the LABEL option specifies six new library units or if the speci- 
fied new library unit duplicates the edit stack file. 

11505 ILLEGAL PARAMETER xxxxxx 

xxxxxx is the contents of columns 8-13 of an input card that 
is not a valid Editor parameter card. The edit run is terminated. 

11506 DUPLICATE PHASE NAME, NEW PHASE OF 
'xxxxxx' SKIPPED, CONDITION CANNOT BE 
IGNORED 

The specified phase name, xxxxxx, on an INSERT card al- 
ready exists within the System Library and cannot be re-entered. 
The phase already in the library is retained; the input phase 
is ignored. 

11507 CHECK SUM ERROR, CARD NO. xxxxxxxx, 
CONDITION IGNORED 

11507 CHECK SUM ERROR IN PHASE xxxxxx, LOAD 
ADDR=xxxxx, CONDITION IGNORED 

11508 CARD ORDER ERROR, xxxxxxxx, CONDITION 
IGNORED 

Card serial numbers in columns 73-80 are not in sequence. 

11509 PARAMETER CARD SEQUENCE ERROR, OPER- 
ATION xxxxxx ON yyyyyy' RESEQUENCED, 
CONDITION IGNORED 

The order of phase alterations in the edit run input should be 
in the same order that the phases appear in the System Library, 
If the order is different, the Editor will resequence the input 
phase alterations to agree with the phase order in the System 
Library, as shown in IBTOC. To accomplish the resequencing, 
Phase 1 of the Editor will start a sort sequence, thereby slowing 
the speed of the edit run. Parameters affecting the Subroutine 
Library must be in the same order as the subroutines within the 
library. 

11510 xxxxxx DOES NOT EXIST, CONDITION CAN- 
NOT BE IGNORED 

A REPLACE, REMOVE, or MODIFY parameter cannot 
affect a phase name not already within the System Library. 

11511 ILLEGAL DUP OPERATION xxx . . . xxx, CON- 
DITION CANNOT BE IGNORED 

Certain DUP requests (e.g., 'S.SLBl, S.SLB2, 4') cannot be 
processed; they are deleted from the edit run. 



11512 INVALID LOAD ADDRESS FOR OCT 'xxxxxx', 
CONDITION CANNOT BE IGNORED 

An OCT patch card has an invalid character in the load- 
address portion. The complete card is deleted from the edit run. 

11513 INVALID CHARACTER FOR OCTAL, 
'xxxxxxxxxxxx' SET ZERO, CONDITION CANNOT 
BE IGNORED 

An OCT patch card has an invalid character in its data-words 
field (columns 16.-72). That data word is changed to zeros. 

11514 ILLEGAL REWIND OF S.Sxxx, CONDITION 
CANNOT BE IGNORED 

A REWIND operation (e.g., on the new library unit) cannot 
be accomplished; the operation is deleted from the edit run. 

11515 BLANK CARD READ CONDITION IGNORED 

11516 IBTOC CANNOT BE LOCATED ON OLDLU = 
'S.Sxxx', EDIT TERMINATED 

When an old library unit, other than S.SLBl, is specified on 
the $IBEDT card, it must be searched for the Table of Con- 
tents. The inability to find the Table of Contents, because of a 
permanent input/output error or reading a file .mark, terminates 
the edit run. 

11517 ILLEGAL PARAMETER FOR LIRE EDITING 
'xxxxxx', CONDITION CANNOT BE IGNORED 

The parameter cards allowed between the LIRE and 
LIBEND parameters do not include MODIFY, sysnam RE- 
MOVE, DUP, or REWIND. The parameter card is deleted 
from the edit run. 

11518 ENTRY POINT FOR PHASE 'xxxxxx' MISSING, 
ZERO ASSUMED CONDITION IGNORED 

A transfer card or an MZE record (from IBLDR) was not 
read before the reading of a parameter card. The Editor sup- 
plies a phase on the new library unit whose entry point is zero. 
As exception is made for the MODIFY parameter, this may be 
altered by a later run using the MODIFY parameter, which 
contains only a transfer card. 

11519 UNEXPECTED PARAMETER CARD READ, 
CONDITION CANNOT BE IGNORED (or EDIT 
TERMINATED) 

If Phase 1 reads, for example, two REPLACE cards with no 
data between them, the first REPLACE card is deleted, and the 
phrase CONDITION CANNOT BE IGNORED is appended 
to the message. Phase 2 terminates the edit run, as this condi- 
tion is probably caused by a machine error. The lODER rou- 
tine of lOOP is used to indicate the probability of input/output 
error conditions. 

11520 UNEXPECTED BINARY RECORD READ, CON- 
DITION CANNOT BE IGNORED (or EDIT 
TERMINATED) 

Phase 1 or 2 expects a parameter card, but reads a binary 
card or load record (from IBLDR). If this occurs in Phase 2, 
the edit run is terminated, as it is probably a machine error. The 
lODER routine types an error message. 

11521 UNEXPECTED EOF READ, CONDITION CAN- 
NOT BE IGNORED (or EDIT TERMINATED) 

Phase 1 or 2 expects data, but reads a file mark. lODER also 
types an error message specifying the unit in error. If this occurs 
in Phase 2, the edit run is terminated. 

11522 'xxx... xxx' WAS READ, lEOR/lEOF EX- 
PECTED, EDIT TERMINATED 

Phase 2 expects a trailer label after the file mark on the old 
library unit, but reads something else. 

11523 'xxxxxx' NOT IN TABLE OF CONTENTS, CON- 
DITION CANNOT BE IGNORED (or EDIT 
TERMINATED) 

All phases to be edited into the System Library must appear 
on a CALLS parameter to be entered in the Table of Contents. 



34 



For example, any INSERT parameter that specifies a phase that 
is not on a preceding CALLS card or in the Table of Contents is 
deleted from the edit nm. A phase being duplicated onto the 
new library imit may also cause this error. 

n524 ILLEGAL DEVICE TYPE, S.Sxxx, EDIT TER- 
MINATED 

The unit-type indicator in the system control block for the 
unit S.Sxxx shows that the unit requested for editing may not 
be used. For example, the card reader cannot be the new library 
unit. The lODER routine types an error message similar to this 
off-line message. 

11525 PROBABLE MACHINE ERROR AT LOC. xxxxx 
EDIT TERMINATED 

See listing at octal location xxxxx for the condition that 
caused this message. 

11526 OLDLU PHASE READ xxxxxx, EXPECTED yyyyy, 
EDIT TERMINATED 

The Subroutine Library Edit routine expects one of its three 
phases (IBLIB, SRNAD, or IBREL), but reads another phase. 

11527 xxxxxx DECK SEQUENCE ERROR, CONDITION 
CANNOT BE IGNORED 

The Subroutine Library Edit routine requires the relocatable 
MAP decks to be in sequence number order; also, the $ con- 
trol cards must be in the order: $IBLDR, $CDICT, $TEXT, 
and $DKEND. 

11528 xxxxxx DUPLICATE DECKNAME, CONDITION 
CANNOT BE IGNORED 

The Subroutine Library Edit routine cannot insert the name 
of the duplicate relocatable subroutine; the input deck is deleted. 

11529 UNEXPECTED $ CONTROL CARD ENCOUN- 
TERED, EDIT TERMINATED 

The Editor has read a' $ card which it cannot process. This 
$ card is placed in S.SAVE for interpretation by the System 
Monitor, and the Editor transfers to the System Dump program, 
which skips to the next job. 

11530 CARD GENERATED FOR LIBRARY ROUTINE. 
CONDITION IGNORED 

The Editor has found the $DKEND or LIBEND card to be 
missing from the edit run input and has attempted to supply 
the proper card in order to continue editing. 

Note: Further meaningless error messages may result from 
this attempt. 

11532 ILLEGAL xxxxxx EOR REQUEST, CONDITION 
CANNOT BE IGNORED 
The symbol xxxxxx is either REMOVE or INSERT. No more 
than the assembled limits of S.SLBx units 'may be created 
by INSERT EOR; no more EOR trailer labels can be removed 
than already exist. 



11533 IMPROPER LIBE INPUT - REMAINING DECKS 
IGNORED. CONDITION CANNOT BE IGNORED. 

An error is present in the Editor input that follows the 
LIBE card. The ehor may be either of the following: 

1. The order in which subroutines are specified in the 
input deck does not correspond to the order of the subroutines 
in the library. 

2. A subroutine specified on a REPLACE, REMOVE, or 
AFTER card is not contained in the library. 

11534 SECONDARY xxxxx NEEDED BUT UNSPECI- 
FIED, EDIT TERMINATED 

xxxxx is either NEWLU or OLDLU. This message is pro- 
duced when the input to an edit run requires a secondary unit 
but the secondary unit has not been specified. 

11536 IBTOC ENTRY REMOVED FROM TABLE OF 
CONTENTS, CONDITION CANNOT BE IG- 
NORED . 
The IBTOC entry in the Table of Contents may not be 

removed either by a phase REMOVE card dr a subsystem 

REMOVE card. The edit is terminated. 

11540 xxxxxxxxxxxx ERROR ON S.Sxxx nnnnn EDIT 
TERMINATED 
The twelve x's indicate the type of input/output error, 
nnnnn is the device address. 

11543 UNRECOGNIZABLE INPUT TYPE ENCOUN- 
TERED, PHASE xxxxxx NOT PROCESSED, CON- 
DITION CANNOT BE IGNORED 

The binary data following an Editor parameter card is not 
of a form directly acceptable to the Editor. The data and the 
parameter card are deleted from the edit run. 

11544 NO MERGE DEVICE AVAILABLE, CONDITION 
CANNOT BE IGNORED (or EDIT TER- 
MINATED) 

In certain cases. Phase 1 of the Editor must sort and merge 
the input for a phase, or must attempt to resequence the input 
phase order. If no merge device (new library unit) is avail- 
able (since it might be the edit file at the moment), a merge 
requirement will terminate the edit, while a resequence condi- 
tion will result in merely dropping the out-of -sequence phases(s). 

11545 S.SUxx CANNOT BE USED FOR MERGING 
Phase 2 of the Editor must perform a duplication pass to 

insert an updated Table of Contents into the new System 
Library. S.SUxx, the work unit to be used for this pass, cannot 
accept the records from the new library because their block size 
is too great. The edit run is terminated. 

11549 EDIT COMPLETE - NEWLU xxxxxx, AND yyyyyy 
The edit run has been completed, xxxxxx is the primary 
NEWLU, and the secondary NEWLU, if applicable, is indi- 
cated by yyyyy. 
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System Mon itor 



The System Monitor provides for continuous machine 
processing of jobs that require subsystems of the ibm 
7040/7044 Operating System. It accomphshes this by 
providing a constant area of core storage, the Nucleus, 
for communication of information from subsystem to 
subsystem. A supervisory routine, the Supervisor, 
processes System Monitor control cards to change the 
core storage environment, symbolic unit assignments, 
and the input/output device configuration and to pass 
control to the subsystem or program required by the 
next application. An Input/Output Control System and 
several routines in the System Monitor are also pro- 
vided for the user. 

The Nucleus 

The Nucleus contains the data and tables that must 
be passed from subsystem to subsystem and routines 
that may be useful to any object program. The contents 
of the Nucleus may be divided into the following func- 
tional sections: 

1. Words allocated for machine use 

2. System transfer points 

3. System data areas 

4. Control blocks 

5. Other tables 

6. Nucleus routines 

7. Lower levels of the Input/Output Control System 
Figure 21 shows the approximate core storage al- 
located to the Nucleus. 

The locations of the ends of iols and iobs may be 
greater than indicated if core storage protection is used 
by the System Monitor. Neither iols nor iobs is storage 
protected; the erasable j)ortion of iols and all of iobs 
must follow the end of storage protection. 

Lower storage is reserved for communication words 
and system routines of the Nucleus, ioex, and loopi. 
IOOP2, iols, and iobs may be overlaid by a subsystem 
or an object program. The System Monitor restores 
these whenever control is returned to it. The entire 
Nucleus is defined at system assembly time and is as- 
sembled in absolute format. 

Words Allocated for Machine Use 

The first 93 words of core storage are allocated to ma- 
chine functions. 

Trap Words 

Locations 0-33 (0-41s) are trap words initiahzed by the 
System Monitor at initial start. They are used to 
transfer control to trap routines in ioex. 





Approximate 


Section 


Size 


IBNUC 




Machine Functions 


93 


Pointers and Data Words 


120 


*Symbolic Units Table 


1 word/symbolic unit 


*Unit Control Blocks 


9 words/device 


^System Control Blocks 


4 words/symbolic unit 


(Unit record. Tele-processing, 




magnetic tape, or 7740 




input) 




*System Control Blocks 


8 words/symbolic unit 


(7740 output or 




1301/1302/7320) 




Nucleus Routines 


600 


IOEX 




Basic Functions 


510 


*Basic Functions Channel Tables 


14 words/channel 


1301/1302/7320 Functions 


140 


** 1301 /1 302/7320 Functions 


4 words/channel (approx. 


Channel Tables 


1 .5 words/module) 


Interrupt Scheduler 


150 


*lnterrupt Scheduler Channel 


1 word/channel 


Pushdown List 


16 v/ords/level (level = IBRSL) 


Storage Protect 


40 


lOOP 




Header 


320 


Magnetic Tape 


350 


** 1301 /I 302/7320 


500 


***Unit Record 


170 


Telecommunications 


349 


Common 


120 


IOLS 




Reel Processing 


290 


Labels 


360 


System 


70 


IOBS 


940 


♦Variable, based on configuration 




**IP1ND is located at the end of the 1301/1302/7320 section (if | 


present) or tape section. 




***IP2ND is located at the end of the Unit Record section. This 


section varies, depending on the devices (e.g., 1402, 1403) 


specified during system assembly. 


1 



Figure 21. Approximate Core Storage Allocation 

A description of the content of each word is given 
in Figure 22. 

Engineering Words 

Locations 34-63 ( 42-778 ) are reserved for engineering 
use. 

Load Area 

Locations 64-92 (100-1348) are reserved as a read-in 
area for loading. 
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Octal 
Location 



Initialized to 
Label OP Address 



10 



n 
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40 
41 



Description 



IBTFP 



IBTDD 



IBCLK 
IBTTI 



PZE 

VFD 
ETC 

ETC 

ETC 
TRA 
PZE 
TRA 
PZE 
PZE 

TRA 



12/IXTPR 

12/0 

r 
12/IXTPI 

12/9 

IXTPR 



34 





IXTPI 



Address word for floating 
point overflow and un- 
derflow traps and STR 
trap 

Used to reset the trap 
words 

When Interval Timer not 
available 

When Interval Timer avail- 
able 

Transfer word for STR trap 
Direct Data trap words 

Interval Timer Count 
Interval Timer Overflow 

trap words 
When Interval Timer avail- 
able 



TRT* 


IBTTI 


When Interval Timer not 
Civaildble 


TRA 


11 


Transfer word for floating- 
point overflow and un- 
derflow traps 


TRT* 


IBTFP 


Transfer word for floating- 
point overflow and un- 
derflow traps 


PZE 





Channel A trap words 



12 


IBTCA 


PZE 





Channel A trap words 


13 




TSL 


IXTOO 




14 


IBTCB 


PZE 





Channel B trap words 


15 




TSL 


IXTOO 




16 


IBTCC 


PZE 





Channel C trap words 


17 




TSL 


IXTOO 




20 


IBTCD 


PZE 





Channel D trap words 


21 




TSL 


IXTOO 




22 


IBTCE 


PZE 





Channel E trap words 


23 




TSL 


IXTOO 




24-30 








Assembly options and date 
of assembly 


31 








Not used 


32 


IBTSP 


PZE 





Storage Protection trap 
word 


33 




TRT* 


IBTSP 
or 


When Storage Protection 
not available 






TRA 


IXTPS 


When Storage Protection 
available 


34 




RCT 




Restores trapping for 
Direct Data trap 


35 




TRT* 


IBTDD 




36 


IBTIR 


PZE 





Interval Timer Reset trap 



TRT* IBTIR 

or 
TRA IXTPL 

IBTPA PZE 

TRA IXTPY 



words 
When Interval Timer not 
available 

When Interval Timer avail- 
able 
Storage Parity trap words 



System Transfer Words 

Tlie system transfer words begin at location 93 ( ISSg). 
They contain* transfer instructions to entry points in 
the Nucleus routines, ioex routines, loop, iols, and 
lOBS. The first system transfer word must be s.sldr 
because it is used as a reference point for the Restore 
routine of the System Monitor. A description of the 
content of each word is given in Figure 23. 



Label 



S.SCKT 



S.IOOP 
S.TPBF 



S.IOLS 



S.GETB 



OP 



Address 



Routine 





ORG 


IBNUC 


S.SLDR 


TRA 


IBLOD 


S.SRPT 


SWT 


RUPSW 


S.SDMP 


BRA 


IBDMP,, 
IBDMP 


S.SRUP 


TRA 


IBRUP 


S.SRET 


BRA 


IBRET,, 
IXTRL 


S.SRST 


TRA 


IBRST 


S.SCCR 


TRA 


IBCCR 


S.SIDR 


TRA 


2,4 


S.XACT 


TRA 


IXACT 


S.XDAC 


BRA 


IXDAC, 
IXCON + 
IXCDX 


S.XPRT 


TRA 


IXPRT 


S.XPSE 


TRA 


IXOPP 


S.XbVA 


TRA 


IXOCV-l-1 


S.XOVD 


TRA 


IXOCV 


S.XDVA 


TRA 


IXDCV-fl 


S.XDVD 


TRA 


IXDCV 


S.XUCV 


TRA 


lODEV 



TRA 



TRA 
TRA 



TRA 



TSL 



3,4 



lOPOO 
ITPBF 



ILSOO 



S.OPEN 


TRA 


ISNOO 


S.OPNL 


TRA 


ISN01 


S.GETL 


TSL 


ISGPE 



ISGPE 



S.PUTL 


TSL 


ISGPE 


S.PUTB 


TSL 


ISGPE 


S.PLOC 


TSL 


ISGPE 


iS.CLSE 


TRA 


ISCOO 


S.CLSL 


TRA 


ISC01 


S.BSR 


TRA 


ISBSB 


S.WEF 


TRA 


ISWEF 


S.REW 


TRA 


ISREW 


S.FEOR 


TRA 


ISFER 


S.CKPT 


TRA 


ISCPT 


S.BDMP 


EQU 


ISDME 



System Loader 
Operator interrupt test 
Dump routine 

System Monitor Recall routine 
Return routine (if disk is not 

assembled, the decrement is 0) 
Restart routine 
Change Communication Region 

routine 
Installation Accounting routine 
IOEX Active routine 
IOEX Deactivate routine 



IOEX Print routine 
IOEX Pause routine 
Binary to octal, address 
Binary to octal, decrement 
Binary to decimal, address 
Binary to decimal, decrement 
Change UCUNI to display 

format 
Checkpoint routine 

(Must be initialized by the 
object program.) 
lOOP Unit Synchronizer 
Tele-processing Buffer 
System (assembled only if 
Tele-processing devices are 
attached) 
IOLS Verification and Creation 

routines 
lOBS Open routine 
lOBS Open List routine 
lOBS Get Logical Record 

routine 
lOBS Get Physical Record 

routine 
lOBS Put Logical Record routine 
lOBS Put Physical Record routine 
lOBS Put Locate routine 
lOBS Close routine 
lOBS Close List routine 
lOBS Backspace Record routine 
lOBS Write File Mark routine 
lOBS Rewind routine 
lOBS Force End-of-Reel routine 
lOBS Checkpoint routine 
IOB.S Error Routine 



Figure 22. Trap Words 



Figure 23. System Transfer Words 
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SYMBOL CONTENTS 

S.SLVL PZE nn, , mm 



S.SCOR PZE S.SEND,, 

IBORG + 1 



S.SCSN PZE ILEND , , 
ISEND 



S.SPND VFD 1/IFSNS 

ETC 1/SHARE 

ETC 16/LABELS 

ETC 18/IP2ND + 1 



System Data Areas 

System data areas are classified as follows: 

1. Constants set from system assembly parameters 

2. Variable data set by subsystem components for 
communication to other components 

3. Tables describing the logical and physical organi- 
zation of the system 

Constants 

The following data provided by assembly parameters 
is stored in this region: 

DESCRIPTION 

This word contains the 
version number, mm, 
and the level number, 
nn, of this system. 
These are the limits of 
core storage available 
to object program. 
IBORG+l equals 
IPIND or S.SORG, 
whichever is the greater 
value. 

ILEND is 1 plus the 
last location of lOLS. 
ISEND is 1 plus the 
last location of lOBS. 
The sign bit of this 
word indicates the set- 
ting of IFSNS in the 
Nucleus as follows: 

+ IFSNS is 

- IFSNS is 1 
The value of SHARE 
indicates which set of 
data control characters 
is being used. 

LABELS indicates 
whether or not the in- 
stallation uses labeled 
storage media as fol- 
lows: 

0— Label creation 
and verification routines 
do not exist on the 
System Library. 

1— Label creation 
and verification routines 
are on the System Li- 
brary, but blank reel 
header labels are not 
verified. 

2— Label creation 
and verification routines 
exist on the System Li- 
brary and ail output 
reels must be checked 
for purge dates. 

IP2ND-I-1 is the last 
location of IOOP2, 
MXCLK is the value to 
which the interval timer 
should be set. The value 
is the maximum num- 
ber of minutes that a 
job may run. 

NTRES contains the 
reservation code of the 
interrupt unit for input 
during the job inter- 
rupt procedure. 
Percent of redundancies 
that, if exceeded, 



S.SCMX PZE MXCLK,, 
NTRES 



SYMBOL CONTENTS 

S.SUBC PZE IBUCB,,CHE5 



S.SSBC PZE IBSCB,,CHE5 



S.SPER PZE IBPER 



SYMBOL CONTENTS DESCRIPTION 

causes an on-line mes- 
sage to be typed when 
. a $STOP card is read. 

The next group of words provides information con- 
cerning the location and length of the tables within the 
Nucleus. These symbolic locations can be considered 
to be pointers to these tables. 

DESCRIPTION 

This word points to a 
table delimiting the 
unit control blocks. 
This table contains one 
word per channel and 
has the following for- 
mat: 

PZE lucbx,,lgx 
where Igx is the number 
of words required by 
the unit control blocks 
for a specific channel, x, 
and lucbx is the loca- 
tion of the first of these 
blocks. IBUCB is the 
location of this table; 
CHE5 is the number of 
channels. 

IBSCB is a table in the 
following format that 
delimits the system 
control blocks: 

PZE Iscbx , , Igx 
where Igx is the num- 
ber of words required 
by the system control 
blocks for a specific 
channel, x, and Iscbx 
is the location of the 
first of these blocks. 
IBSCB is the location 
of this table; CHE5 is 
the number of chan- 
nels. 

S.SUOO is the first of n 
number of Utility units. 
This information is used 
to assign a utility unit 
to a program. 
The address of the word 
contains the location of 
the first word in the 
Abbreviated Table of 
Contents; the decre- 
ment gives the length 
of this table. 
The address of this 
word contains the loca- 
tion of the first word in 
the Recognizable Con- 
trol Card Table; the 
decrement gives the 
length of thii table. 
S.BSLA PZE ISLBL Pointer to lOBS label 

area. 

Variable Data 

The following variable data is used for communication 

among the subsystem components: 

SYMBOL CONTENTS DESCRIPTION 

S. SDAT BCI 2,mmddyy0yyddd The current date is 

stored here from the 
$DATE card or the 



S.SUNI PZE S.SUOO,, n 



S. SLTC PZE IBLTB,, 
IBLTZ*3 



S.SRCC PZE IBRTB,, 
IBRTZ*2 
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CONIENTS 



S. SCLK PZE ** 



S. SGIS PZE ** 



S.SDEX pfx la,, In 
pfn re 



S.SCUR BCI 1, 



S.SFAZ BCI 1 



S.SSWI PZE ,,** 



DESCRIPTION 

entry keys. It may be 
used by any part of the 
system. 

This word contains the 
time of day at the time 
when the interval timer 
was last set in binary 
format. It is set by the 
Supervisor before con- 
trol is passed to any 
subsystem. This infor- 
mation may be used by 
the object program. 
This is the last value to 
which the clock was set 
by the IMTIS routine. 
This routine is called 
by every monitor be- 
fore any exit to a sub- 
system. 

This information is used 
by the Supervisor, the 
Editor Monitor, and the 
Sort Monitor to read the 
Table of Contents from 
the System Library. It 
is provided by the 
Supervisor at an initial 
start, la is the load ad- 
dress of the first block 
of the Table of Con- 
tents phase. In is the 
number of words in 
that block, pfn is the 
number of the library 
unit, and re is the 
block number. 
The name of the cur- 
rent subsystem in con- 
trol is stored in this 
location. S.SCUR is set 
to IBSYS by the Super- 
visor at system assem- 
bly. It is reset by a sub- 
system monitor when it 
receives control. When 
control is returned to 
the Supervisor, it is 
reset to IBSYS. It is 
also reset to IBSYS 
when control is given 
to an object program. 
S.SCUR is used by the 
System Dump program, 
liiis word is set by 
the System Loader 
(S.SLDR) to the name 
of the last phase that 
was loaded. It is used 
by the System Dump. 
S.SSWI contains one of 
the following code 
numbers, identifying 
the subsystem in con- 
trol to the Supervisor. 
1— The System Moni- 
tor, the Utility 
Monitor, the Up- 
date program, and 
the object pro- 
gram 
2— The Processor 
4— The System Editor 
8— The Sort program 



CONTENTS 



S. SFLG DEC 
DEC 



S.SAVE DEC 



S.SCDI pfx , , ** 



S.PGCT pfx 



S.SHDR BCI 5, 



DESCRIPTION 

Up to 15 codes are 
available to an installa- 
tion. This code is set by 
each subsystem moni- 
tor as it receives con- 
trol. 

These 20 flag words 
contain information 
that must be trans- 
mitted from one part of 
a processor to another. 
( Figure 24 illustrates 
the usage by the Proc- 
essor. ) 

These words contain 
the next control card to 
be processed by the 
system when one of the 
combined monitors is 
not in control. This 
card was read by some 
system part and was 
stored in this location 
for use by the S.SRET 
routine. 

The sign bit of this 
word indicates the pres- 
ence or absence of a 
card in S.SAVE as fol- 
lows: 

— Card present. 
+ Card absent. 
S.SCDI is set to minus 
by the INSAVE rou- 
tine of the (Processor) 
Input Editor, by the 
close function of the 
System Input Editor, 
or by a routine of 
similar function in the 
assembler or the com- 
pilers. The S.SRET rou- 
tine resets it to plus 
when the card is used. 
The decrement con- 
tains one of the follow- 
ing codes indicating the 
reason for recalling the 
System Monitor: 

1— Return without 

the next card 
2— Return with the 

next card 
3— Initial start 
4— Return for inter- 
rupt 
This information is used 
by the S.SRET rou- 
tine and by the Sys- 
tem Monitor. 
This word contains the 
listing page count. The 
sign bit of this word is 
the list switch as fol- 
lows: 

+the list switch is 

on. 
— the list switch is 
off. 
The switch is assem- 
bled as — . 

These words contain 
the heading text from 
the $JOB card. 
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Word Bit 


Name 


Set by 


Used by 


- 


Word 


Bit Name 


Set by 


Used by 




1 S 


SOURCE flag 


IBJOB 


IBJOB, IBMAP, 


4 


S Indicator for 


LDRPRE 


IBLDR 










IBLDR, DEBUG 






$POOL chain 








1 


DECK flag 


IBJOB 


IBMAP, IBJOB 






1-2 


Unspecified 






2 


Storage Map 
flag 


IBJOB 

IBLDR 

Reset for no 
load by IBMAP 
IBCBC 
IBFTC 


IBJOB, IBLDR 
IBMAP 






3-17 Number of 

$POOL cards 
18-20 
21-35 JBPCI 


LDRPRE 

Unspecified 
LDRPRE 


IBLDR * 

IBLDR (this field 
is the relative 
location of the 
first $POOL 




3 


GO flag 


IBJOB 


IBJOB, IBMAP, 
IBLDR 










chain entry in 
CISB) 








Reset for 






5 


S Indicator for 


LDRPRE 


IBLDR, DEBUG 








NOGO 








$NAME chain 












by IBMAP 








1-20 


Unspecified 










IBFTC 








21-35 JBNCI 


LDRPRE 


IBLDR, DEBUG 








IBCBC 












(this field is the 








IBLDR 












relative location of 




4 


LOGIC flag 


IBJOB 
IBLDR 


IBJOB, IBLDR, 
IBMAP 










the first $NAME 
chain entry in 
CISB) 








Reset for no 






6 


S Indicator for 


LDRPRE 


IBLDR, DEBUG 








load by IBMAP 








$USE, $OMIT 








5 


COBOL flag 


IBJOB 


IBJOB 






1-20 


Unspecified 






6-7 


IOCS flag 


IBJOB 


IBLDR 






21-35 JBUOI 


LDRPRE 


IBLDR, DEBUG 




8 


FILES flag 


IBJOB, IBLDR 


IBLDR 










(this field is the 




9 


Load file flag 


IBJOB 


IBJOB, IBLDR 










relative location 
of the first $USE 




10-12 




Reserved 












or $OMIT chain 




13 


lEDIT flag 


IBJOB 


JOBIN, IBJOB 










entry in CISB) 








IBLDR 


IBLDR 




7 


S Indicator for 


LDRPRE 


IBLDR 




14 


SEARCH flag 


IBJOB 


JOBIN 






$LABEL 








15 


OEDIT flag 


IBJOB 
IBLDR 


JOBOU 






1-20 
21-35 JBLCI 


Unspecified 
LDRPRE 


IBLDR, S.LABL 




16 


COPY flag 


IBJOB 
Reset for no 
load by IBMAP 


IBLDR 










(this field is the 
relative location 
of the first $LABEL 




17 


Punch file open 


IBSUP, JOBPP 


IBSUP, PCLOSE 










chain entry in 




18 


RELOC flag 


IBJOB 


IBJOB, IBLDR 










CISB) 




19 


Loader called 
flag 


IBLDR 


IBJOB 




8 


S Replace ( + ) 
or insert ( — ) 


IBEDT 


IBLDR 




20 


Preprocessor 


IBJOB 


IBJOB 






on edit 








21 


interrupt unit 
for S.FBIN 










1-2 

3-17 Reservation 


Unspecified 
IBEDT 


IBEDT 




22 


CHAIN flag 


IBJOB 


IBLDR 






code for 








23 




Reserved 








primary newlu 








24 


IBEDIT flag 


IBEDT 

Reset by 

IBEDT 

IBCBC 

IBLDR 

IBFTC 


IBJOB, IBLDR 




9 


18-20 

21-35 Reservation 
code for 
secondary 
newlu 
S-35 


Unspecified 
IBEDT 

Unspecified 


IBEDT 








IBMAP 






10 


S-35 


IBDMP1 


IBDMP2 




25 


Object time files 


LDRPRE 


IBLDR 




11 


S-35 


Unspecified 














12 


S-35 Match $ Field 


IBJOB 


JOBIN 




26 


Unload COPY 
file 


IBJOB 


IBLDR 








INCLOS 














13 


S-35 Match 


IBJOB 


JOBIN 




27 


Output file open 


JOBOU 
JOBPP 


JOBPP, JOBOU 




14 


deckname 


INCLOS 
Unspecified 
Unspecified 
Unspecified 






28 


IBMAP T.O.C. 
to Nucleus 


IBJOB 


IBJOB 




15 
16 








29 


IBFTC T.O.C. to 
Nucleus 


IBJOB 


IBJOB 




17 


S-2 ' Number of 
OlDLU's 


IBEDT 


IBEDTl 




30 


IBCBC T.O.C. to 


IBJOB 


IBJOB 






3-17 Address of 


IBEDT 


IBEDT1 




31 


Nucleus 
IBLDR T.O.C. to 
Nucleus 


IBJOB 


IBJOB 






OLDLU 
18-20 Number of 
NEWLU 's 


IBEDT 


IBEDTl 




32 


LIBEDIT 


IBEDT 


IBMAP 






21-35 Address of 


IBEDT 


IBEDTl 




33 


S.FBIA 


IBJOB 


JOBIN 






NEWLU 










opened with 








18 


S MAP flag 


IBEDT 


1BEDT2 






labels and 










1 Discontinue 


IBMAP 


IBEDT 






rewind 










edit flag 


IBLDR 






34 


1 EDIT Match 


INCLOS 


JOBIN 






2 


Unspecified 
IBEDT 








S.SAVE to 










3-17 Version number 


IBEDT2 






S.SFLG 










18-20 


Unspecified 






35 


DLOGIC flag 


IBJOB 


IBLDR 






21-35 Level number 


IBEDT 


IBEDT2 




2 S 


No separate 
LOADUN 


IBJOB 


IBCBC 




19 


S-2 

3-17 Core size 


Unspecified 
IBEDT 


IBEDT2 




1-20 




Unspecified 








(if specified) 








21-35 


Compiler/ 


IBCBC 


IBMAP (contains 






18-20 


Unspecified 








Map Unit 


IBFTC 


the S.SUNI ref- 
erence for the 
internal text file) 




20 


21-35 Maximum block 
size of NEWLU 
S-2 


IBEDT 
Unspecified 


IBEDTl, IBEDT2 




3 S 


Indicator for 
CISB 


LDRPRE 


IBLDR, DEBUG 






3-17 Addi'ess of sec- 
ondary oldlu 


IBEDT 


IBEDTl 




1-20 




Unspecified 








18-20 


Unspecified 






21-35 


J6CISB length 
of CISB 


LDRPRE 


IBLDR, DEBUG 






21-35 Address of sec- 
ondary newlu 


IBEDT 


IBEDTl 





Note: Words 2-20 of S.SFLG are overlaid by IBLDR (in a GO situation) and Reload. 



Figure 24. Communication Flags 
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The next two words, containing information regard- 
ing input/output operation, are set by loor for use by 
a calling program. The publication IBM 7040/7044 
Operating System (16/32K): Input /Output Control 
System, Form C28-6309, contains additional informa- 
tion. 



SYMBOL 

S.SSCH 



pfx 



CONTENTS 



DESCRIPTION 

This word contains the 
results of the last oper- 
ation on an input/out- 
put unit. The address 
portion contains 1 pluS 
the last location of the 
data transmitted. The 
prefix ai)d decrement 
contain flags indicating 
the status at the end of 
the operation. 
This word contains the 
results of the last oper- 
ation on an input/out- 
put unit other than tele- 
communications input 
devices. 

The following words, containing information regard- 
ing input/output operations, are set by the Input/Out- 
put Executor (ioex) for use by select plus and select 
minus routines. 



S.SSNS PZE ** , ** 



SYMBOL CONTENTS 

S.XTDT PZE **,,** 



S.XSNS BCI 2, 



S.XLTP PZE 



S.XSCH PZE **,,** 



S.XTPS pfx 



DESCRIPTION 

The decrement of 
S.XTDT contains trap 
condition indicators de- 
rived from the channel 
trap cell. The address 
contains 1 plus the 
location of the inter- 
rupted program. 
These words contain 
the sense data obtained 
by IOEX before each 
entry to a select plus 
routine or to a select 
minus routine for an 
operation that resulted 
in an unusual end con- 
dition. 

S.XLTP contains the 
position of the device 
prior to the activity 
that ended in a trap. 
The address of S.XSCH 
is equal to 1 plus the 
location of the last 
word that was read or 
written. The decre- 
ment contains the num- 
ber of words remain- 
ing. 

The sign of this word 
is set and interpreted 
by the Input/Output 
Executor as follows: 
-I- Trap is not in prog- 
ress; trapping is 
not inhibited. 
—Trap is in prog- 
ress; trapping is 
inhibited. 
S.XTPS is interrogated 
by any routine that 



SYMBOL CONTENTS 



The following words 
formation: 

SYMBOL CONTENTS 

S.XCPS pfx 



S.NAPT pfx , , NTRPT 



S.SFBL PZE a , , 1„ 
PZE d , , 1„ 



S.JNAM BCI l.jobnam 



DESCRIPTION 

must temporarily in- 
hibit and restore chan- 
nel traps. 

contain miscellaneous in- 



DESCRIPTION 

The sign bit of this 
word is set and inter- 
preted by the Check- 
point routine, as fol- 
lows: 

+ Checkpoint is not 
in progress. 

— Checkpoint is in 

progress. 
The prefix of S.NAPT 
indicates whether or 
not a snapshot has been 
taken as follows: 

+ No snapshot has 

been, taken. 

— Snapshots exist on 

S.SCKl. 
The prefix of S.NAPT 
is set by the Snapshot 
routine for use by the 
System Monitor and 
the Dump program. It 
is reset by the Dump 
program and the Check- 
point routine. 

NTRPT is a pointer 
to the interrupt unit 
used for input during 
the job interrupt pro- , 
cedure. 

These words contain 
the following informa- 
tion pertaining to the 
file control blocks: 

a: Location of the 
first word of the area 
occupied by contigu- 
ous file control blocks 

Im: Total length of 
the file control blocks 

d: Displacement of 
label information from 
the start of each file 
control block 

In: Total length of 
each control block 

This information is 
set by initialization rou- 
tines for all subsystem 
components and by the 
Loader for object pro- 
grams. It is used by the 
Checkpoint routine. 
Jobnam is one of the 
following: 

1. Deck name from 
columns 8-13 of the 
$IBJOB card 

2. Main name from 
columns 8-13 of the 
$CHAIN card in a 
Chain application 

3. Program name 
from the variable field 
of the $RELOAD card 
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SYMBOL CONTENTS DESCRIPTION 

4. Phase name from 
columns 16-21 of the 
$EXECUTE card 

In items 1-3, jobnam 
is Stored by the Proc- 
essor Monitor for use 
by the Loader, the Re- 
load Program, and the 
CHAIN subroutine. 

In item 4, jobnam is 
stored by the System 
Monitor for use by the 
CHAIN subroutine. 

These unit reference words are extracted from the 
unit references in the appropriate file control block 
immediately after any of these files are released; that 
is, closed without rewinding. The Processor Input and 
Output Editors maintain them for the alternate input, 
output, and punch files. The Loader and the post- 
execution routines maintain them for object programs. 

The following words are used to save information 
about the Processor's files. 



SYMBOL CONTENTS 

S.IAUN PZE **,,** 



S.OAUN PZE **,,** 



S.EDUN PZE **,,** 



S.SRUS *** **,,** 



S.SPRP VFD 1/IFCHO, 

' ETC 1/IFCHT, 

ETC 1/IF162, 

ETC 18/0, 

ETC 15/CPRPU 



DESCRIPTION 

S.IAUN is initialized 
by the Processor Moni- 
tor whenever a $IEDIT 
card specifying an al- 
ternate input file is en- 
countered. 

S.OAUN is initiahzed 
by the Processor Moni- 
tor whenever a $OEDIT 
card specifying an al- 
ternate output file is 
encountered. 
S.EDUN is initialized 
by the Editor Monitor 
to the proper unit to be 
used as the edit file. It 
is set by the Processor 
Monitor to the proper 
unit to be used as the 
copy or reload file. 
The first word indicates 
the contents of the Sym- 
bolic Units Table entry 
for S.SINl when there 
is an alternate unit for 
an interrupt job. 

The second word in- 
dicates the contents of 
the Symbolic Units 
Table entry for the in- 
terrupt unit used for 
input during the job 
interrupt procedure. 
The prefix bits of this 
word indicate the set- 
tings of the assembly 
parameters IFCHO, 
IFCHT, and IF162. 
The address field, 
CPRPU, indicates the 
setting of the system 
print/punch flag, which 
may be modified by 
using the $OPEN and 
$CLOSE control cards. 



SYMBOL 


CONTENTS 


S.SYCV 


For any of the five sym- 


S.SYCW 


bols. 


the contents niay 


S.SYCX 


be: 




S.SYCY 


VFD 


6/chan, 


S.SYCZ 


ETC 


6/aml 




ETC 


6/am2 




ETC 


6/am3 




ETC 


6/am4 




ETC 


6/am5 



S.SYFS 



VFD 
ETC 
ETC 
ETC 
ETC 
ETC 



6/code6 or 
6/code5 or 
6/code4 or 
6/code3 or 
6/code2 or 
6/codel or 



The following words contain information necessary 
for symbolic channel assignment. 

desc:ription 
These words are the 
defining words for sym- 
bolic channels V-Z. The 
fields are set by the 
System Monitor when 
a $CHANNEL card is 
recognized, and they are 
cleared when a $JOB 
card is recognized. 
Chan is the absolute 
charmel code in octal 
as follows: 

00= No channel 
10 = Channel A 
20 = Channel B 
30 = Channel C 
40= Channel D 
50 = Channel E 
aml-am5 is symbolic 
module n and contains: 
00-11 (octal) indi- 
cating arml module 
0-9, 12-23 (octal) in- 
dicating arm2 module 
0-9, 77 (octal) unde- 
fined. 

Codes 1 through 6 rep- 
resent the allowable 
disk and/or drum 
format types for selec- 
tion as available units 
within an installation. 
These codes are de- 
fined by the use of the 
ALLOW macro-instruc- 
tion. In the released 
version, code 1 is full 
track and codes 2 
through 6 are not used. 
This word contains in- 
formation used by the 
Debugging Processor, 
the Loader, the Proces- 
sor Monitor, and the 
System Monitor. The 
sign bit is on ( — ) if 
debugging is requested. 
Bit I is on if there is 
output on the debug 
work unit. Bit 2 is on 
if IBDMP has termi- 
nated execution and 
called the postproces- 
sor. In the address field, 
dwu is the location of 
the entry in the Sym- 
bolic Units Table for 
the debug work unit; 
in the decrement field, 
blksiz is the block size 
for the debug work 
unit. 

Symbolic Units Table 

The Symbolic Units Table, which occupies the re- 
maining system data area, describes the logical units 
available to the system. At an initial start, an entry 
for each logical unit available to the system is initial- 



S.SDBG pfx dwu , , blksiz 
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ized by the System Monitor housekeeping routine from 
the ATTACH macro-instructions used at system assembly 
time. A list of units not physically available to the 
system will be typed. The Supervisor maintains this 
table and modifies it when processing a $switch, 
$ATTACH, $DETACH, OT SRESTORE Card. The table is fixed 
in length up to s.suos. 

The Symbolic Units T^ble is referred to by any 
part of the system that uses an input/output unit in 
processing, by the calling sequence to s.ioop, and by 
all file control blocks. 

The content of the Symbohc Units Table is: 

SYSTEM UNIT 

LIBRARY 1 
LIBRARY 2 



SYMBOL OPC 

S.SLBl •** 

S.SLB2 *** 

S.SINl *** 

S.SIN2 *** 

S.SOUl *** 

S.S0U2 *** 

S.SPPl *** 

S.SPP2 *** 

S.SCKl *** 

S.SUOO *** 

S.SUOl *** 

S.SU02 *** 



VAR FIELD 

** ** 

y > 
** ** 

J y 

** ** 

y y 

y y 
** ** 

*^ lime 



INPUT 1 
INPUT 2 
OUTPUT 1 
OUTPUT 2 
PUNCH 1 
PUNCH 2 
CHECKPOINT 1 
UTILITY 
UTILITY 1 
UTILITY 2 



S.SU99 *** ** %* UTILITY 99 

Each entry in the table requires one word; the num- 
ber of entries is determined by the attach macro- 
instructions at system assembly time. The prefix bits of 
each word are interpreted as follows : 

BitO =0 Unit may or may not be unloaded after being 
rewound. 
= 1 Unit must be unloaded after being rewound. 
This bit should be set for S.SINl, S.SIN2, 
S.SOUl, S.SOU2, S.SPPl, and S.SPP2 for data 
protection. 

Bit 1 =0 Unit is not in use by current program. 

= 1 Unit is in use by current program. This bit 
should be set by any object program that does 
not use the lOBS level of IOCS, so that check- 
point and restart procedures can be performed. 

Bit 2 Not used. 

The address and decrement portion of these words 
are: 
Address 

The location of the unit control block for the device assigned 
to this logical unit 
Decrement 

The location of the system control block for the part of the 
device assigned to this logical unit 

Control Blocks 

The unit control blocks and the system control blocks, 
which occupy the next section of the Nucleus, are de- 
scribed in the publication IBM 7040/7044 Operating 
System (16/32K): Input/Output Control System, Form 
C28-6309. 

Other Tables 

Two other tables are included in the final portion of 
the Nucleus along with the Nucleus routines that use 
them. 



Abbreviated Table of Contents: The Abbreviated 
Table of Contents, ibltb, consists of three-word entries 
identical to the Table of Contents entries for the sub- 
system in control. Since it contains the name and 
position in the library of each phase of a subsystem, 
it allows the s.sret routine to use the System Loader 
to call subsystem parts without reloading the Super- 
visor and the subsystem monitors. The Abbreviated 
Table of Contents, also referred to as a phase dic- 
tionary, is set up by all monitors through the impas 
routine. 

An entry in the Abbreviated Table of Contents has 
the same format as an entry in the Table of Contents 
(see the section "Table of Contents"). 

Recognizable Control Card Table: The Recognizable 
Control Card Table, ibrtb, is a list of control cards 
that can be recognized by the s.sret routine and used 
by the System Loader to call a specified subsystem 
component. The Recognizable Control Card List con- 
tains two words per entry in the following format: 

SYMBOL CONTENTS DESCRIPTION 

IBRTB BCI 1, $lgcrd The first word contains 

PZE p a recognizable control 

card name, $lgrcd, from 
columns 1-6 of any sub- 
system control card, p is 
the location of the Abbre- 
viated Table of Contents 
entry for the subsystem 
component associated 
with the preceding con- 
trol card name. 

Nucleus Routines 

The following routines remain in storage at all times 

to maintain the continuity of the system: 

1. System Loader (s. sldr) 

2. Interrupt Test (s.srpt) 

3. Dump routine (s.SDMp) 

4. System Monitor Recall routine (s.srup) 

5. Return routine ( s.sret ) 

6. Restart routine (s.srst) 

7. Change Communication Region routine (s.sccr), 
In addition, the Installation Accounting Routine 

(s.sidr) might be added to the Nucleus to remain in 
core storage at all times. 

System Loader 

The System Loader is an absolute program loader that 
positions the proper system hbrary unit for loading, 
loads a system phase, and verifies that phase using 
information supplied to it from the Abbreviated Table 
of Contents. It performs the following functions: 

1. Pre-positions the device specified in the Abbre- 
viated Table of Contents, loads a phase from the de- 
vice, and verifies the accuracy of the positioning by 
comparing the phase name to the first word of the 
Abbreviated Table of Contents entry. 

2. Initiates post-positioning of the device. 
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3. Transfers control to the phase just loaded. 

Functions 1, 2, and 3 are optional, as specified in the 
calling sequence to the System Loader, which is: 

TSX S.SLDR,4 

pfx ptr 

where the prefix codes have the following meanings: 

Sign Bit 

1— Do not post-position. 
0— Post-position. 

Bitl 

1— Do not load. 
0-Load. 

Bit 2 

1— Do not transfer control. 
0— Transfer control. 

and ptr has the following interpretation: 

ptr 

= 0: Use the pointer as is to reference the Abbreviated Table 
of Contents in the established sequence. 

7^ 0: Readjust the reference to the Abbreviated Table of 
Contents to location ptr. 

Note: Calling s.sldr with a prefix code of pth will 
position the device in front of the phase referred to 
by ptr. 

The System Loader uses the following subroutines: 

1. S.IOOP 

2. S.XPRT 

3. S.XPSE 

Two error conditions are possible. In the eVent of 
a permanent error when reading, a code 20529 error 
message is typed and processing is suspended. If the 
phase name cannot be verified, a code 20527 error 
message is typed and processing is suspended. For 
both cases, pressing start causes the device to be re- 
wound and the loading to be restarted. 

Operafor Interrupt Test 

The machine operator can interrupt the flow of proc- 
essing to process a priority job by setting the entry 
keys and then executing the operator interrupt pro- 
cedure. To test for an operator interrupt request, any 
program may, at a convenient point, include the fol- 
lowing instructions: 

XEC S.SRPT 

*** This instruction is executed if there is no inter- 

rupt request. 

*** This instruction is executed if there is an inter- 

rupt request. 

*** is any operation code. Index register 4 may be 
altered by this procedure. If an interrupt request exists, 
the programmer should complete all operations cur- 
rently in progress, take a checkpoint if applicable, and 
transfer control to s.srup. 



The instruction in location s.srpt, in the distributed 
version, is: 



S.SRPT 



SWT 



RUPSW 



The parameter rupsw in the distributed version is: 

RUPSW EQU 1 

By modifying rupsw, the installation may assign the 
test to any sense switch. By modifying s.srpt, the in- 
stallation may modify the interrupt test procedure. 
Since it is specified that index register 4 may be altered 
by this procedure, the installation is free to assemble 

S.SRPT TSX routn,4 

where routn is the entry point to an interrupt analysis 
routine that the installation has included in the Nu- 
cleus. 

Dump Routine, 

The Dump routine uses ioop to write an area of core 
storage on the system checkpoint unit, if that unit is 
attached. It then calls the System Loader to load the 
Dump program into that area. The calhng sequence 
to the Dump routine is: 



SXA 


*+3, 4 (or theequi' 


TSX 


S.SDMP, 4 


pfx 


return, t, errno 


PZE 


** 



where return, t is the location to which the Dump 
program will transfer control after dumping. If the 
effective address (return, t) is zero, control is returned 
to the Supervisor. The symbol errno is the five-digit 
error number. The prefix pfx is interpreted as follows: 

Sign Bit = 1 Pause before returning 
Bit 1 =1 Dump system panel 
Bit 2 =1 Traceback 

The error message 20298 is typed if s.scki cannot be 
written without error. 

Systent Monitor Recall Routine 

This routine uses the System Loader to bring the 
Supervisor into core storage. It is called with a tra 
S.SRUP instruction. 

Return Routine 

This routine examines columns 1-6 of the next control 
card that is in location s.save. If the card is recog- 
nized, the System Loader loads the required subsystem 
component and passes control to it. If the next card has 
not been saved, or if it is not recognized, the System 
Loader loads the Supervisor record containing the 
combined monitors. 

s.SRET uses the contents of s.save and s.scdi to ob- 
tain the next control card and calls the System Loader 
to bring in the proper phase. 
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Restart Routine 

This routine reads in the record of core storage from 
the checkpoint device and transfers control to the pro- 
gram being restarted. The Restart routine is called 
with a TRA s.SRST instruction. 

As input, the Restart routine requires a work area 
describing the checkpoint device, the core storage to 
be restored, and the return point to the program for 
which the checkpoint was taken. 

The Restart routine uses loop to read from the 
checkpoint device, under the assumption that it is 
properly positioned. 

The error message 20298 is typed if the checkpoint 
device cannot be read without error. 
Installation Accounting Routine 

This routine is defined by each installation. It has the 
following calling sequence: 

TSX S.SIDR,4 

PZE loc , , n 

where loc has the following meanings: 

¥= 0: loc is the location of the $ID, $JOB, or $STOP card. 
= 0: No $ID, $JOB, or $STOP card exists, 
and n has the following meanings if loc = 0: 
= 0: Entry is from the Supervisor. 
1: Entry is from IBMAP. 
2: Entry is from IBFTC. 
3: Entry is from IBCBC. 
4: Entry is from the beginning of IBLDR. 
5: Entry is from the end of IBLDR. 
6: Entry is from S.JXIT. 
9: Entry is from IBSRT. 
12: Entry is from the beginning of RELOAD. 
13: Entry is from the end of RELOAD. 
One transfer to the accounting routine is made for 
the first $jOB card that is encountered after initial start; 
two transfers are made for each subsequent $job card. 
In the distributed version of the system, location 
s.siDR is a TRA 2,4 instruction which should be changed 
when the installation defines its accounting routine. 
Change Communication Region Routine 
The Change Communication Region routine permits 
the programmer to release storage protection, ex- 
ecute one instruction that changes the contents of the 
Nucleus, and restore storage protection. The calHng 
sequence is: 

TSX S.SCCR, 4 

Instruction that affects the Nucleus 
Return 



*** 
*** 



Supervisor 

The Supervisor routines process the System Monitor 
control cards. They may be called by any subsystem 
that an installation assembles into the combined 
monitors. 

The functions of the Supervisor are performed by 
the following: 

1. IMMON Routine 4. IMSRT Routine 

2. IMAST Routine 5. IMEXE Routine 

3. IMSYS Routine 6. INJOB Routine 



7. IMRCD Routine 

8. IMSCN Routine 

9. IMPAS Routine 

10. IMUQI Routine 

11. IMINT Routine 

12. IMLSU Routine 

13. IMDLY Routine 

14. IMSWI Routine 

15. IMATT Routine 

16. IMDET Routine 

17. IMCLO Routine 

18. IMRES Routine 

19. IMTIF Routine 

20. IMPUN Routine 



21. IMLIS Routine 

22. IMUNL Routine 

23. IMOID Routine 

24. IMPAU Routine 

25. IMSTO Routine 

26. .IMTIS Routine 

27. IMTIM Routine 

28. IQRST Routine 

29. IQRSC Routine 

30. IMUNI Routine 

31. IMCHA Routine 

32. SCAN Routine 

33. IMBDC Routine 

34. IMOPN Routine 



IMMON Routine 

Purpose: The main flow of control through the Super- 
visor begins with this routine. The routine checks to 
see if iBjOB is in control and, if it is not, releases all units 
with 70 and 62 reservation codes. The routine also ex- 
amines the decrement of location s.scdi to determine 
the reason that the Supervisor was entered. Processing 
is initialized if this is an initial start. 
IMAST Routine 

Purpose: To type the contents of a $* card on-line. 

Calling Sequence: 

TRA IMAST 

The Supervisor enters this routine after recognizing 
a $* card. . 

Input: $* card. 

Output: None. 

Subroutine Used: imtif 

Error Conditions: None. 
IMSYS Routine 

Purpose: To insert the name of the subsystem cur- 
rently in control into location s.scur and to set s.sswi. 

Calling Sequence: 

TRA IMSYS 

The Supervisor enters this routine after recognizing a 
siBSYS card. 

Input: $iBSYS card. 

Output: None. 

Subroutine Used: s.sccr 

Error Conditions: None. 
IMSRT Routine 

Purpose: To process the sibsrt card. This routine 
places IBSRT into location s.scur, sets s.sswi and trans- 
fers control to the imexe routine. 

Calling Sequence: 

TRA* IMSRT 

The Supervisor enters this routine after recognizing a 
sibsrt card. 

Input: $IBSRT card. 

Output: None. 

Subroutine Used: s.sccr 

Error Conditions: None 
IMEXE Routine 

Purpose: To process a $execute card, which provides 
convenient access to a program in the System Library. 
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This routine scans the Index for the program name 
starting in column 16 of the $execute card. If this 
name is found, the hbrary-unit position(s) and the 
load address (es) of the program are placed in the 
Abbreviated Table of Contents in the Nucleus. In ad- 
dition, the program name is stored in s.jnam and con- 
trol is passed to the System Loader. If the name is not 
found, a code 10515 error message is typed. 

Calling Sequence: 

TRA IMEXE 

The Supervisor enters this routine after recognizing a 
SEXECUTE card. 

Input: $EXECUTE card. 

Output: None. 

Subroutines Used: s.sldr, s.sccr, imscn, and s.xprt. 

Error Conditions: The name of the program to be 
executed is not in the Table of Contents. The $execute 
card is ignored and the next control card is read. 

IN JOB Routine 

Purpose: To process a, $job card. All intersystem res- 
ervation codes, system work unit codes, and object 
program unit codes in the reservation fields of the 
system control blocks are set to zero, columns 16-45 
of the $jOB card are saved in s.shdr, the installation 
accounting routine is called, the interval timer is reset 
to the value assembled as mxclk in ibnuc, and the 
control card is typed. Word 1 of s.sflg is reinitialized 
except for the punch file open and output file open bits. 
Entries to special input/output routines are cleared if 
those entries pointed to locations within s.scor limits. 
All lOOP special routine entries that fall between iborg 
and s.SEND will-be deleted. 

Calling Sequence: 

TRA INJOB 

The Supervisor enters this routine after recognizing a 
$jOB card. 

Input: $jOB card. 

Output: None. 

Subroutines Used: s.sccr, s.sidr, imtis, and imtif. 

Error Conditions: None. 

IMRCD Routine 

Purpose: To move the next card into a fixed area 
and initialize the imscn routine. The imrcd routine 
reads a control c^rd and checks it for a $ in column 1. 

Calling Sequence: 

TSX IMRCD, 4 

*** Return 1 

*** Return 2 

Return 1 is taken if the next card is a binary card or 

if it is not a $ control card. Return 2 is taken if the 

next card is a $ control card. 

Input: None. 

Output: None. 

Subroutine Used: jobin 

Error Conditions: None. 



IMSCN Routine 

Purpose: To pick up twelve characters at a time 
from a control card. ^ 
Calling Sequence: 

TSX IMSCN, 4 

Input: None. 

Output: Up to twelve low-order bcd characters in 
the accumulator and multiplier-quotient register. If 
there are fewer than twelve characters, the high-order 
positions are filled with leading zisros. 

Subroutines Used: None. 

Error Conditions: None. 

IMPAS Routine 

Purpose: To pass a portion of the Table of Contents 
to the Nucleus and construct a table of recognizable 
control cards. 
Calling Sequence: 

TSX IMPAS, 4 

pfx a, , b 

BCI 1, c 

where the prefix, pfx, is plus for a new Table of Con- 
tents and minus for an addition to the existing Table 
of Contents. The letter a is the length of the portion 
of the Table of Contents, b is the location of the first 
word in the portion, and c is the contents of columns 
1-6 of the control card. 

Input: None. 

Output: Abbreviated Table of Contents. 

Subroutine Used: s.sccr 

Error Conditions: Table of Contents or conjrol card 
list overflow. 

IMUQI Routine 

Purpose: To compare the utility units portion of the 
Symbolic Units Table with the entire Symbolic Units 
Table, checking for uniqueness. If one of the two sym- 
bolic units composed is s.scki, this is not considered a 
non-unique entry. 

Calling Sequence: 

TSX IMUQI, 4 

*** Return if each entry is unique. 

*** Return if any entry is non-unique. 

Input: None. 

Output: Address of lowest non-unique entry in the 
accumulator if any is non-unique. 
Subroutines Used: None. 
Error Conditions: None. 

IMINT Routine 

Purpose: To change unit assignments and/or process 
a special job when the operator interrupt procedure 
is followed. The entry keys are examined for the type 
of action to be taken. 

Calling Sequence: 

TSL IMINT 
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Input: Entry keys. 
Output: None. 

Subroutines Used: s.xprt and s.xpse. 
Error Conditions: Unable to determine request. 
IMLSU Routine 

Purpose: To validate a symbolic unit name. 
Calling Sequence: 

TSX IMLSU, 4 

Return if the symbolic unit name 

is invalid. 
Return if the symbolic name is 
valid. 
Input: The symbolic unit name in the mq. 
Output: The relative location in the Symbolic Unit 
Table, in index register 2. 
Subroutines Used: None. 
Error Conditions: None. 

IMDLYRowfine 

Purpose: To delay until all input/output activity is 
completed. 

Calling Sequence: 

TSL IMDLY 

Input: None. 

Output: None. 

Subroutine Used: s.ioop 

Error Conditions: Since no error return is provided, 
an loop error results in a dump. 

IMSWI Routine 

Purpose: To process a $sv*^itch card, which inter- 
changes the devices assigned to the symbolic units 
that are either specified or indicated by intersystem 
reservation codes. 

Calling Sequence: 

TRA IMSWI 

The Supervisor enters this routine after a sswitch card 
is recognized. 

Input: $swiTCH card. 

Output: None 

Subroutines Used: imscn, s.xpse, imdly, s.xprt, and 

S.SCHI. 

Error Conditions: Two error conditions apply: 

1. An attempt to switch s.sini, s.sou], or s.slbi with 
a symbolic unit that has no device attached results in 
an error message and a pause. The card is ignored. 

2. lyy specified was illegal or not defined. The card 
is ignored. 

IMATT Routine 

Purpose: To attach a device to the system and as- 
sign it to the symbolic unit specified. This routine sets 
an attachment indicator in the unit control block and 
places the location of the unit and system control 
blocks in the Symbolic Units Table. 

Calling Sequence: 

TRA IMATT 

The Supervisor enters this routine after recognizing a 
SATTACH card. 



Input: $ATTACH card. 
Output: None. 

Subroutines Used: imscn, s.xpse, imdly, and s.xprt. 
Error Conditions: The following error conditions 
apply: 

1. Attempt to attach an attached unit. 

2. Attempt to attach a device not defined at assem- 
bly time. 

3. Attempt to attach more symbolic units to a device 
than were attached at assembly time. 

4. Attempt to attach a device not physically avail- 
able. 

5. Attempt to assign a reservation code other than 
57 or 58 to the device. 

These conditions result in an error message and a 
pause. The card is ignored. 

IMDET Routine 

Purpose: To detach a device and its unit. 

Calling Sequence: 

TRA IMDET 

The Supervisor enters this routine after recognizing a 
SDETACH card. 

Input: SDETACH card. 

Output: None. 

Subroutines Used: imscn, imdly, s.xpse, and s.xprt. 

Error Conditions: Two error conditions apply: 

1. Attempt to detach a device for which there is no 
unit control block will result in an error message and 
the card will be ignored. 

2. Attempt to detach a device reserved by the pro- 
grammer or an attempt to detach a detached device 
results in an error message and a pause. The card is 
ignored. 

IMCLO Routine 

Purpose: One of the following, depending upon the 
unit specification on the $close card: 

1. If s.sppi is specified, the combined print/punch 
status bit is set to combined. If either mark, remove, 
or REWIND is specified, the punch unit is closed ac- 
cordingly and the punch-file open bit is set to off. 

2. If s.suxx is specified, the unit is released, the 
associated reservation code is reset to zero, and the 
other options are processed. 

3. If lyyR is specified, the unit to which the inter- 
system reservation code yy is appended is treated as 
in point 2 above. 

Calling Sequence: 

TRA IMCLO 

The Supervisor enters this routine after recognizing a 
$CLOSE card. 

Input: SCLOSE card. 

Output: None. 

Subroutines Used: imscn, s.xprt, s.xpse, s.ioop 

IMDLY, and S.SCHI. ' ' 

Error Conditions: The following error conditions 
apply: 
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1. An attempt to close s.sini, s.soui, or s.slbi results 
in an error message and a pause. The control card is 
ignored. 

2. lyy is undefined or illegal. The card is ignored. 

IMRES Routine 

Purpose: To restore the unit assignment scheme to 
its initial conditions. All intersystem reservation codes 
are released and a list of all units not physically avail- 
able is typed. 

Calling Sequence: 

TRA IMRES 

The Supervisor enters this routine after recognizing a 
$RESTORE card. 

Input: $RESTORE card. 

Output: None. 

Subroutines Used: s.sldr, s.ioop, s.xprt, and s.xpse. 

Error Conditions: Unable to restore results in an 
error message. The card is ignored. 

IMTIF Routine 

Purpose: To type the control card unless it is already 
typed. 

Calling Sequence: 

TSL IMTIF 

Input: Control card in imcrd. 
Output: None. 
Subroutine Used: s.xprt. 
Error Conditions: None. 

IMPUN Routine 

Purpose: To type a card containing an invalid field 
and an error message. 
Calling Sequence: 

TRA IMPUN 

Input: Control card in imcrd. 
Output: None. 

Subroutines Used: s.xprt and imttf. 
Error Conditions: None. 

IMLIS Routine 

Purpose: To set the list switch so that all $ control 
cards, processed by the combined monitors, are typed. 

Calling Sequence: 

TRA IMLIS 

The Supervisor enters this routine after recognizing a 
SLiST card. 

Input: $LiST card. 

Output: s.scDi set plus. 

Subroutine Used: imtif. 

Error Conditions: None. 

IMUNL Routine 

Purpose: To turn off the list switch. 
Calling Sequence: 

TRA IMUNL 



The Supervisor enters this routine after recognizing a 
suNLiST card. 

Input: SUNLIST car^. 

Output: S.SCDI set minus. 

Subroutine Used: None. 

Error Conditions: None. 

■MOID Routine 

Purpose: To enter the installation accounting rou- 
tine. 

Calling Sequence: 

TRA IMOID 

The Supervisor enters this routine after recognizing a 
$iD card. 

Input: $iD card. 

Output: None. 

Subroutines Used: imtif and s.sidr. 

Error Conditions: None. 

IMPAU Routine 

Purpose: To pause or suspend machine processing. 

Calling Sequence: 

TRA IMPAU 

The Supervisor enters this routine after recognizing a 
$PAUSE card. 

Input: $PAUSE card. 

Output: None. , 

Subroutines Used; imtif and s.xpse. 

Error Conditions; None. 

IMSTO Routine 

Purpose: To terminate an interrupt job or the series 
of jobs on s.siN]. The installation accounting routine 
is called and the interval timer is reset to zeros, and 
all intersystem reservation codes are released. 

Calling Sequence: 

TRA IMSTO 

The Supervisor enters this routine after recognizing a 
$STOP card. 

Input: $STOP card. 

Output: None. 

Subroutines Used: imtif, s.xprt, s.xpse, s.xdva, 
S.XDVD, IMRES ( IMRES is uot uscd in an interrupt job), 
S.SIDR, and imtis. 

Error Conditions: None. 

liWTiS Routine 

Purpose: To set the interval timer prior to entering 
an object program. 
Calling Sequence: 

TSL IMTIS 

Input: Length of job in imtic. 
Output: Interval timer ( ibclk ) is set. 
Subroutine Used: s.sccr. 
Error Conditions: None 
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IMTIM Routine 

Purpose: Sets the interval timer to the time specified 
on the STIME card. 
Calling Sequence: 

TRA IMTIM 

The Supervisor enters this routine after recognizing 
a $TiME card. 

Input: $TiME card. 

Output: Length of job in imtic. 

Subroutines Used: imscn and imtif. 

Error Conditions: None. 

IQRST Routine 

Purpose: To accompHsh a restart. 
Calling Sequence: 

TRA IQRST 

Input: Key setting. 
Output: None. 

Subroutines Used: imscn and imint. 
Error Conditions: 

1. Specified checkpoint device not attached. 

2. Specified checkpoint record cannot be located. An 
error message is typed and a halt for operator action 
occurs. 

IQRSC Routine 

Purpose: To accomplish a restart. 
Calling Sequence: 

TRA IQRSC 

Input: SRESTART card. 
Output: None. 

Subroutines Used: See "iqrst Routine" above. 
Error Conditions: See "iqrst Routine" above. 

iMUNi Routine 

Purpose: To type the current unit assignments and 
reservation codes. 
Calling Sequence: 

TRA IMUNI 

The Supervisor enters this routine after recognizing a 
suNiTS card. 

Input: suNiTS card. 

Output: The typewritten paragraph. 

Subroutine Used: s.xprt. 

Error Conditions: None. 

IMCHA Routine 

Purpose: To set up equivalences between the real 
channels and the symbolic channels specified in the 
scHANNEL card. Also, to set up equivalences between 
real disk access mechanisms (or drum modules) and 
any symbolic access mechanisms specified. See Ap- 
pendix D for a detailed description of the imcha 
routine. 



Calling Sequence: 

TRA IMCHA 

The Supervisor enters this routine when a $channel 
card is recognized. 

Input: $channel card. 

Output: None. 

Subroutines Used: s.sccr, s.xprt, imtif, imscn, scan, 
and iMBDC. 

Error Conditions: Any irregularities encountered 
while the schannel card is being processed cause the 
following to be done: 

1. The $channel card is typed. 

2. A message is typed: 

10502 $CHANNEL CARD IN ERROR 

3. A message is written on the system output unit: 
SKIPPING TO NEXT JOB 

4. If the requirements specified by the schannel 
card cannot be fulfilled, the contents of the schannel 
card are typed and a second message is written: 

10518 $CHANNEL REQUIREMENTS CANNOT BE 
SATISFIED 

SCAN Routine 

Purpose: To scan one or more characters of imcrd 
( fixed area ) 
Calling Sequence: 

AXT n,4 

TSL SCAN 

TRA Return 1 

TRA Return 2 

n indicates the number of characters (1-6). 
Return 1 is for a valid control card. 
Return 2 is for an invalid control card. 
Input: None. 

Output: The n characters scanned, in the accumu- 
lator, right-justified, high-order zeros. 
Subroutine Used: imrcd. 
Error Conditions: None. 

IMBDC Routine 

Purpose: To convert bcd to binary. 
Calling Sequence: 

TSL IMBDC 

Input: BCD word in accumulator. 
Output: Converted binary data in accumulator. 
Subroutines Used: None. 
Error Conditions: None. 

IMOPN Routine 

Purpose: To process the $open card as follows: 

1. If the card specifies s.sppi, the combined print/ 
punch status bit is set to uncombined. 

2. If the card specifies S.SUxx = Iyy, reservation 
code yy is placed in the reserved status field of the 
system control block for S.SUxx. 
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3. If the card specifies T = lyy, D = lyy, or U = lyy, 
reservation code yy is placed in the reserved status 
field of the system control block for an available tape 
unit (T), an available disk or drum unit (D), or any 
available unit (U), 

4. If REVi^iND is specified, the unit will be rewound. 

Calling Sequence: 

TRA IMOPN 

Input: $OPEN card. 

Output: None. 

Subroutines Used: imscn, s.sccr, s.schi, and scan. 

Error Conditions: 

1. S.SUxx was already reserved. 

2. lyy is the reservation code for another unit. 

3. Illegal variable field. 

4. No units of the type requested were available. 

All of the errpr conditions listed above cause the 
$oPEN card to be ignored and a message to be written. 



Input /Output Control System 

The system requires that the following levels of the 
Input/Output Control System (see Figure 25, which 
appears later in the text) remain in core storage: 



1. lOEX. 

2. lOOP synchronizer. 

3. loopi select and error recovery routines. 

The subsystem requirements of the Input/Output 
Control System are: 

1. lOLS and iobs are required by the Supervisor, the 
Processor, and the Update Program. 

2. lOLS is required by Sort, Dump, the System 
Editor, and the monitored utility programs. 

IOOP2, lOLS, and iobs are optionally available to ob- 
ject programs processed by the Processor. 



Dump Program 

The IBM 7040/7044 Operating System contains a Dump 
program that provides error messages, error dumps, 
and debugging dumps during operation of the system. 
The Dump program uses the Input/Output Opera- 
tions (loop) level of the Input/Output Control System 
(iocs). Error returns for all conditions are provided. 
The Dump program also uses the system Output Editor 
for writing on the system output unit. 

The Dump program is discussed fully in the publi- 
cation IBM 7040/7044 Operating System (16/32K): 
Debugging Facilities, Form C28-6803. 
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Processor (IBJOB) 



This section contains detailed information on the 
Processor components for the systems programmer. 

Processor Monitor 

The Processor Monitor, one of the combined monitors, 
controls Processor apphcations. 

Operation 

The Supervisor transfers control to the Processor 
Monitor when a $ibjob card is read. The Processor 
Monitor has the following functions: 

1. It decodes the $ibjob card and saves this informa- 
tion. 

2. It sets up the input/output unit configuration and 
ensures availability of the units. 

3. It creates the phase dictionary from the Table of 
Contents, using the sibjob card parameters. 

4. It creates a list of control cards that are valid for 
this Processor application. 

5. It calls the Preprocessor (ldrpre), which inter- 
prets the Preprocessor cards, converts the information 



to binary coding, aq^d writes the information on a 
utility unit. The Preprocessor is called into core stor- 
age only one time for each Processor application. 

6. It processes the sibftc, $ibcbc, sibmap, sibldr, and 
$RELOAD cards. That is, it processes the first such card in 
a Processor apphcation and processes subsequent cards 
when they are not recognized by s.sret. 

7. It transfers to the s.sret routine, which examines 
columns 1-6 of the card in s.save. If the card is vahd 
for this application, s.sldr loads the system part re- 
quired and passes control to it. The s.sret routine is in 
core storage at all times and if, subsequently, s.sret 
examines a card in s.save that is invahd for this Proc- 
essor application, it calls in the combined monitors and 
transfers control to the Supervisor. 

Figure 26 shows the Processor Monitor operation. 

Routines 

The following is a list of. Processor Monitor routines 
that indicates the function and calHng sequence for 
each routine: 
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AVLUNI tests the availability of units for worki, 
WORK2, and work3 and places the Symbolic Units Table 
addresses of the units into the compiler units table. The 
calling sequence for this routine is: 
TSL AVLUNI 

CBAVL tests for the availability of the extra cobol 
unit v^^ORK4. If the unit is not available, the load file is 
used as the unit for work4. The Symbolic Units Table 
address of the unit is placed in the compiler units table. 
The calling sequence for this routine is: 
TSL CBAVL 

FTCENT obtains the address of the Table of Con- 
tents entry for a Processor section. Prior to executing 
the calling sequence, the accumulator must be set to 
BCi 1, xxxxxx, M^here xxxxxx is the appropriate control 
card name. The calling sequence for this routine is: 

TSL FTCENT 

The routine returns with the accumulator set to pze 
Ai„Li, where ai is the control address of the Table of 
Contents entry for the specified control card, and li 
is three times the number of phases in the Table of 
Contents entry. 

GERP writes error messages. The calling sequence 
for this routine is: 

TSX GERP, 4 

PZE A, m, n 

where: 

n 

= the number of parameter words at A. 

m 

= the error severity code. 

IMCHN processes the $chain card. The calling 

sequence for this routine is: 

TRA IMCHN 

IMCBC processes the sibcbc card when either the 
$iBCBC card is the first $ibcbc, $ibftc, or $ibmap card 
after the $ibjob card, or when an error has occurred 
in the first phase of a compiler, causing no card to be 
read ahead. The calhng sequence for this routine is: 
TRA IMCBC 

IMDBL processes the $ibdbl card. The calling se- 
quence for this routine is: 

TRA IMDBL 

IMFTC processes the $ibftc card when either the 
siBFTC card is the first $ibmap, $ibftc, or $ibcbc card 
after the $ibjob card, or when an error has occurred in 
the first phase of a compiler, causing no card to be 
read ahead. The calling sequence for this routine is: 
TRA IMFTC 

IMECH processes the $endch card. The calling 
sequence for this routine is : 

TRA IMECH 

IMENT calls the $entry card processing routine. 
The calling sequence for this routine is: 
TRA IMENT 

IMJOB places the Processor Monitor in control, 
processes a $ibjob card, and initializes the job param- 
eters. The calling sequence for this routine is: 
TRA IMJOB 



IMLDR processes the $ibldr card. The calling 
sequence for this routine is : 

TRA IMLDR 

IMLNK processes the $link card. The calling se- 
quence for this routine is: 

TRA IMLNK 

IMMAP processes the $ibmap card when either the 
$iBMAP card is the first $ibmap, $ibftc, or sibcbc card 
after the $ibjob card, or when an error has occurred in 
the first phase of a compiler, causing no card to be 
read ahead. The caUing sequence for this routine is: 
TRA IMMAP 

IMPRE calls the Preprocessor, which is a separate 
phase, using the System Loader. The calling sequence 
for this routine is: 

TRA IMPRE 

IMREL processes the $ibrel card. The calling 
sequence for thiis routine is : 

TRA IMREL 

IMRLD calls the reload program. The calling 
sequence for this routine is: 

TRA IMRLD 

INCLOS closes the system input file or its alternate 
without rewinding or label checking. The calling se- 
quence for this routine is: 

CALL INCLOS 

JNCLSM is used by the monitor to close the system 
input file without rewinding or label checking. The 
calling sequence for this routine is: 
CALL INCLSM 

INSAVE saves a card from the system input file in 
the area s.save and closes the system input file or its 
alternate without rewinding or label checking. The 
system input file must be open before insave is called. 
The calling sequence for this routine is: 
CALL INSAVE 

JBKILL prints a message that the job is terminated, 
closes files, and returns to the caller. The calling se- 
quence for this routine is: 

TSL JBKILL 

JBSCAN scans the variable field of a control card, 
beginning with column 16. The calling sequences for 
this routine are: 
Xi TSL JBSCI (for the initial entry 

for any one card). 
X2 TSL JBSCAN (for subsequent entries 

for the same card). 

Return from this routine is to Xn+ 1 for an error return, 
and to Xn + 2 for a normal return. The initial location 
of the card to be scanned is card. The collected char- 
acters are in chars through chars +2, left-justified with 
trailing blanks. The terminating character is in the ac- 
cumulator. 

JOBERR is entered when a utility unit is not avail- 
able; the return is made to the s.sret routine. The in- 
terrupt switch will be tested when the combined 
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monitors are loaded. The calling sequence for this 
routine is: 

TSX JOBERR, 4 

PZE ** 

JOBIN is used for input from the system input unit 
or its alternate by all Processor components except the 
monitor. The calHng sequence for this routine is: 

CALL JOBIN 

A logical record is located in the input file buffer. If the 
record is acceptable, the routine returns with the ac- 
cumulator set, as follows: 

pfx la, , n 

where: 
pfx 

= PZE if the record is BCD and the control character in the 

logical control word was 4 or 5. 
= PON if the record is BCD with a $ in column 1 and the 
control character in the logical control word was 4 or 5. 
= MZE if the record is binary and the control character in 
the logical control word was 6 or 7. 
la 

= the initial address of the record in the buffer, 
n 

= the number of words located: 14 if the words are BCD; 
27 (from unit record equipment) or 28 (from nonunit 
record equipment) if the words are binary. 
The following is a hst of conditions that cause the 
record to be unacceptable: 

1. A redundancy on the system input file or its 
alternate. 

2. A file mark on the system input file. 

3. An unsuccessful search for a matching $ card on 
the alternate input file. 

JOBINM is used by the monitor to open the system 
input unit or its alternate on the first entrance or to get 
a single logical record of input from the system input 
file. The calling sequence for this routine is: 
CALL JOBINM 

The routine returns with the accumulator set as in- 
dicated previously under "jobin." 

JOBOU is used for output to the system output unit 
or its alternate by all Processor components except the 
monitor. The calhng sequences for this routine are: 
CALL JOBOU (list) 

CALL JOBOUL(list) 

where hst is the initial address of a set of parameters 
that have the following form: 
PZE n 

pfx Ai, Ti, Ml 



where: 



pfx 



An, Tn, Mn 



pfx 



- the number of words in the list following the first word. 



- PZE if a new line is to be started after a single space. 

= PON if a new line is to be started after a skip to a new 

page. 
= PTW if a new line is to be started after a double space. 

- PTH if a new line is to be started after a space that is 
determined by the first character of the output line. 

= MZE if the current line is to be continued. 



A, 



NOTE: When the preceding prefixes are used, line over- 
flow is ignored. When PTH is used, the user has assumed 
responsibility for spacing, page overflow, and page count. 
The user ean maintain the line count by decrementing the 
counter L.PGLN by the number of lines that are used for 
output. L.PGLN is initially set. to 57 (octal 71) and is 
reset when it reaches zero. 

= the location of the first word of the text. 



= if the initial byte = 0. 

=7^ if the initial byte = Tj - 1. 
Mj 

= the word count if Tj = 0. 

= the character count if Tj ^ 0. 
The symbol j may be 1 ... n. 

JOBOUL is used for writing complete Hues'. The first 
character of the fine must be a blank. When joboul 
is used, MZE is invalid, Tj must be 0, and Mj must 
be the word count. 

Page heading and page numbering are automatic 
and are printed at the top of every new page. 

Page Heading: A field of 17 words (paghd) and a 
field of 14 words (subhd) are provided as entry points 
within JOBOU for page heading information. They must 
be initialized by the object program. The contents of 
s.SHDR are inserted into the first five words of paghd 
on the first entry to jobou. 

Page Numbering: A one-word page number counter, 
PGNUM, is provided within jobou for page numbering! 
The field is entirely numeric and the page number is 
right-justified within it. The field is set to the address 
field of s.PGCT on the first entry to jobou; the routine 
L.uppG increments the field by one before a page head- 
ing is written. The calHng sequence for l.uppg is: 
TSL L.UPPG 

PGNUM may be modified af any time by the user's 
program. 

Data Record Control Character: iobs Type 3 data 
records produced by the System Output Editor 
(jobou) in a combined print/punch installation do not 
have the specified look-ahead control characters on 
a mode change. The 7040/7044-1401 Input/Output 
Utility program, as distributed, correctly processes 
mixed-mode records. 

JOBOUM is used by the monitor for output to the 
system output unit or its alternate. The calling se- 
quence for this routine is: 

CALL JOBOUM (list) 

where list is the initial address of a set of parameters 
that are described under "jobou." 

JOBPP is used for output to the system punch file. 
The calhng sequence for this routine is: 

CALL JOBPP(list) 

The symbol hst is the location of one parameter hav- 
ing the following form: 

list pfx card 

where: 

pfx 

= PZE if the record is BCD. 
= MZE if the record is binary. 
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card 

= the initial address of a bloek of 14 words if the record is 
BCD or a block of 24 words if the record is binary. The 
block contains the information to be placed in the buffer. 
The last two words of a binary record (that is, card col- 
umns 73-80) will be taken from the field PPLBL. 

Card sequencing of binary cards is provided auto- 
matically from the pplbl field. The symbol pplbl is an 
entry point within jobpp that may be initialized by the 
user. It is an eight-character card label (bcd) and is 
left-justified. Its initial setting is: 

BCI 2, 00000001 

The first four bytes are assumed to be alphabetic, 
the next four numeric, and the last four blank. The 
Punch Editor will increase the numeric bytes by one, 
after each binary record is placed into the buflFer. 

JOBPP opens the system punch file with reposition- 
ing and label check if both the punch file open bit ( 17 
in s.sflg) and the combined status bit (35 in s.sprp) 
are off. If the punch file open bit is on and the com- 
bined status bit is off, jobpp opens the punch file with- 
out repositioning or label checking. If the combined 
status bit is on, jobpp does not open the system punch 
file. 

LDAVL tests for the need and availability of a load 
file and opens the load file, if necessary. The calling 
sequence for this routine is: 

TSL LDAVL 

LDRSTK stacks the load file, or skips the deck on the 
input file. The calling sequence for this routine is: 
TSL LDRSTK 

OCLOS closes the system output file or its alternate 
without rewinding or label checking. The calling se- 
quence for this routine is: 

CALL OCLOS 

OCLOSM is used by the Processor Monitor to close 
the system output file without rewinding or label 
checking. The calling sequence for this routine is: 
CALL OCLOSM 

PCLOSE closes the peripheral punch file. The calling 
sequence for this routine is: 

CALL PCLOSE 

IMJIE processes the $iedit card. The calling se- 
quence for this routine is: 

TRA IMJIE 

PIMENT processes the sentry card. The calling se- 
quence for this routine is: 

TSL PIMENT 

PIREL processes the $ibrel card. The calling se- 
quence for this routine is: 

TSL PIREL 

POEDIT processes the $oedit card. The calling se- 
quence for this routine is: 

TSL POEDIT 

PPAVL checks the availability of the system punch 
unit. The calling sequence for this routine is: 
TSL PPAVL 



PVARJ decodes the variable field of the $ibjob card. 
The calling sequence for this routine is: 
TSL , PVARJ 

SYSTUS tests availability status and reserve status 
of a given unit. The calling sequence for this routine is : 



TSL 
pfx 



SYSTUS 
name 



where : 
pfx 

= PZE if name is S.SUxx 

= MZE if name is a file name 

name 

= a symbolic unit ( S.SUxx ) or a file name 

Any of the following file names may be used in the 
calling sequence: 

S.FBIA 

S.FBOA 

S.FBPP 

S.FBLD 

Each of these file names is the initial address of a 
standard 19-word file control block, as described in 
the publication IBM 7040/7044 Operating System 
(16/32K): Input/Output Control System, Form C28- 
6309. 

At the completion of the routine, the accumulator 
is set to + if the unit is available; it is set to — if the 
unit is not available. 

TESTIO decodes iocs options on the $ibjob card. 
The calling sequence for this routine is: 
TSL TESTIO 



Processor Files 

The Processor files have the following file control 
blocks (note that the file name becomes the name of 
the file control blocks ) : 



NAME 


DESCRIPTION 




ASSIGNED TO 


S.FBIN 


System input file 




S.SINl 


S.FBOU 


System output file 




S.SOUl 


S.FBPP 


System punch file 




S.SPPl or S.SOUl if 
print and punch out- 
put are combined 


S.FBIA 


Alternate system 


input 


S.SUxx, as indicated by 




file 




a $IEDIT card 


S.FBOA 


Alternate system output 


S.SUxx, as indicated by 




file 




a $OEDIT card 


S.FBLD 


System load file 




S.SUxx, as determined 
by the Editor or Proc- 
essor Monitor 


S.FBED 


System edit file 




S.SUxx, as determined 
by the Edit Monitor 


S.FBCP 


System copy and reload 


S.SUxx, as indicated on 




file 




the $IBJOB and 
$RELOAD cards 



System Input File 

This file contains the input to the system and may be 
used by object programs. It has the following char- 
acteristics: 
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1. It may be labeled. 

2. It is multireel. Unit switching is automatic. 

3. There must not be file marks within the body of 
the file. 

4. Its file control block, s.fbin, is in the Subroutine 
Library. It specifies an error return, s.iner, which per- 
mits retry only on card equipment errors. 

5. Its file description is fixed by system requirements 
and installation option. Its error return is fixed by 
installation option. 

6. Its buffer areas are included in the using program. 

7. All $ control cards are singly blocked on this 
file; all other cards are blocked according to installa- 
tion option. 

8. The file may be created on the 1401. 

9. It is a mixed-mode file. 

System Output File 

This file contains the print output for the system and 
may be used by object programs. It has the following 
characteristics: 

1. It may be labeled. 

2. It is multireel. Unit switching is automatic. 

3. There must not be file marks within the body of 
the file. 

4. Its file control block, s.fbou, is in the Subroutine 
Library. 

5. Its file description is fixed by system require- 
ments and installation option. 

6. Its buffer areas are included in the using program. 

7. It is a BCD file, unless it is a combined print/punch 
file. 

8. If print and punch output are combined, then 
both files (s.fbou and s.fbpp) are assigned to s.soui, 
buffer areas are shared in the program, and the com- 
bined files form one mixed-mode file. 

System Punch File 

This file contains the punch output for the system 
and may be used by object programs. It has the follow- 
ing characteristics: 

1. It may be labeled. 

2. It is multireel. Unit switching is automatic. 

3. There must not be file marks within the body of 
the file. 

4. Its file control block, s.fbpp, is in the Subroutine 
Library. 

5. Its file description is fixed by system requirements 
and installation option. Its error return is fixed by 
installation option. 

6. Its buffer areas are included in the using program. 

7. It is a mixed-mode file. 

Alternate System Input File 

This file (s.fbia) serves as an alternate source of sym- 
bolic input to the compilers and relocatable input to" 



the Loader. It is used by inserting a $iedit card in the 
system input file. It has the same characteristics as the 
system input file, except that it cannot be multireel 
and that it only contains source or relocatable decks. 

Alternate System Output File 

This file serves as an alternate for compiler print out- 
put only. It is used by inserting a soedit card in the 
system input file. It has the same characteristics as the 
system output file except that it cannot be multireel. 

System Load File 

This file contains stacked relocatable input to the 
Loader. It has the following characteristics: 

1. It may be labeled. 

2. It is single-reel. 

3. There may be no file marks within the body of the 
file. 

4. Its file control block, s.fbld, is in the Subroutine 
Library. 

5. Its file description is fixed by system requirements 
and installation option. 

6. Its buffer areas are included in the using program. 

7. It is a binary file. 

8. If iFCHO is set to 1, it is preferably on the same 
channel as s.siNi. It is preferably not on channel A or 
on channel S. 

9. If only four work units are available for a cobol 
compile and load application, it is on a unit that is one 
of the compiler work units. 

10. It is a tape file or a disk or drum file in a standard 
format other than random access. 

System Edit File 

This file contains control cards and absolute input to 
the System Editor. It has the following characteristics: 

1. It may be labeled. 

2. It is single-reel. 

3. It may not contain file marks within the body of 
the file. 

4. Its file control block, s.fbed, is in the Subroutine 
Library. 

5. Its file description is fixed by system requirements 
and installation option. 

6. Its buffer areas are included in the using pro- 
grams. 

7. It is a binary file. 

8. If NosouRCE is specified on the $ibedt card, the 
edit file will preferably not be on the same channel as 
s.siNi. If SOURCE is specified, the edit file will be on the 
same channel as s.sini. In any case, the edit file will 
preferably not be on channel A and will never be on 
channel S. (These rules apply only if the system is 
assembled with ifcho set i. ) 
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9. It is a tape file or a disk or drum file in a standard 
format other than random access. 

System Copy and Reload File 

This file contains absolute programs, in System Library 
format, to be used by the Reload Program. It has the 
following characteristics: 

1. It may be labeled. 

2. It is single-reel. 

3. It will contain file marks within the body of the 
file. 

4. Its file control block, s.fbcp, is in the Subroutine 
Library. 

5. Its file description is fixed by system requirements 
and installation option. 

6. Its buffer areas are included in the Reload Pro- 
gram, but they are created by the Loader only if copy 
is specified. 

7. It is a binary file. 

8. Its block size is the same as that of the system 
edit file. It is assembled as zero. 

Processor File Maintenance 

Beginning- and end-of-file procedures include rewind- 
ing and, if the file is labeled, verification or creation of 
header or trailer labels. 

The following are cases in which files are opened 
with beginning-of-file procedures: 

1. The s.siNi and s.soui files are opened with a 
beginning-of-file procedure by the Supervisor. 

2. The s.sppi file is opened with beginning-of-file 
procedures by jobpp. Bit 17 of location s.sflg is set to 
1 to indicate the file is open. 

3. The alternate input and the alternate output files 
are opened with a beginning-of-file procedure by the 
Processor Monitor when it encounters a $iedit or $oedit 
card specifying an alternate unit. 

4. The load file is opened with beginning-of-file pro- 
cedures, first by the Processor Monitor when stacking 
of relocatable decks is required by the Loader, and 
later by the Loader itself. 

5. The edit file is opened with a beginning-of-file 
procedure by the System Editor. 

The following are cases in which files are closed with 
end-of-file procedures: 

1. The S.SINI, S.SOUI, and s.sppi files are closed with 
end-of-file procedures by the Supervisor. 

2. The alternate input and alternate output files are 
closed with end-of-file procedures by the Processor 
Monitor when the next $iedit or $oedit card is en- 
countered or at the end of a job. 

3. The load file is closed with end-of-file procedures 
by the compilers or by the Processor Monitor. 

4. The edit file is closed with end-of-file procedures 
by the Editor Monitor and later by the Loader. 



A file is reopened when it is opened without rewind- 
ing or label processing. Any system component that 
uses a system file piust reopen it. Only a monitor is 
permitted to open the files. Before the alternate input, 
alternate output, peripheral punch, load, or edit files 
are opened, a unit assignment must be obtained from 
the Nucleus and placed in the file control block. 

A file is released when it is closed without rewinding 
or label processing. Any system component that uses 
a system file must release it. 

The Input and Output Editors (jobin, jobou, jobpp) 
perform reopening and releasing automatically for all 
system files except the load file and the edit file. The 
pre- and post-execution routines of the Processor Moni- 
tor perform these procedures for object programs. 

The copy and reload file is opened and closed with 
end-of-file procedures and label processing for each 
program that is stacked and loaded. A dummy file, 
created by the Loader, indicates the end of all stacked 
programs. 

Utility Files 

All utility files can be opened and closed at the user's 
discretion. All of them must be closed when processing 
is completed by the routine. Object program files will 
be closed by the post-execution routines of the Proc- 
essor Monitor. Figure 27 shows the use of input/output 
units by the Processor components. 

Labels 

The file block for each of these files may include the 
following label information: 



WORD 


CONTENTS 


FCFSN 


PZE 


FCRSN 


PZE 1 


FCRET 


PZE 


FCIDl 


BCI 2, S.Sxxx 


FCID2 


BCI 1,000000 



Compiler and Assembler Work Units 

The Processor Monitor chooses available units for the 
compilers, assembler, and Loader. It places the Sym- 
bolic Units Table entry for each of these units into a 
table in common storage. If possible, units are chosen 
according to the specifications that follow: 

1. woRKi (and work4 if cobol is specified) should 
be on the same channel as s.sini, but should not be on 
channel A or on channel S. 

2. WORKS and works should not be on the same 
channel as s.sini, nor should they be on either channel 
A or channel S. 

3. In an edit run using the nosource option, works 
is the unit used for the system edit file. 
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4. The units are tape, disk, or drum units. Disk or 
drum units must be in a standard format other than 
random access. 

Note: If ifcho is set to 0, no consideration is given 
to channel quahfications when choosing units (rules 
1 and 2 above do not apply ) . 

Available Work Units 

A unit is available if the following conditions exist: 

1. The unit is attached. 

2. The unit is in ready status. (A test for ready status 
is performed only if the system is assembled with 

IFSNSSET 1.) 

3. The reservation code assigned to the unit is 00. 

4. The unit is not a unit record device. 

5. The format of a disk or drum unit corresponds to 
a standard format of the installation. 

6. If the system is assembled with labels set 2, the 
label associated with the unit must be standard and 
must have an expired retention date. 

The following procedures will be followed when 
there is a shortage of available work units: 



1. When a job specifies the cobol, nogo, nomap, and 
NOLOGic options, the job will be terminated if there 
are not at least four available units. 

2. When a job specifies the cobol, and go, map, logic, 
or dlogic options, the job will run normally if there are 
five available units ( four work units plus the load unit ) . 
If there are four available units, no Preprocessor cards 
($name, $use, spool, $omit, slabel, sfile) will be allowed. 
The job will run if there is only one cobol deck and it 
appears first; otherwise, the job will be terminated. 
The job will also be terminated if less than four units 
are available. 

3. When a job specifies the nocobol and source, go, 
MAP, LOGIC, or DLOGIC optious, four units must be avail- 
able (three plus the load file) or the job will be ter- 
minated. 

4. When a job specifies the nosource option and less 
than three units are available, the job will run until 
one more than the number of available units is re- 
quired. 
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Figure 27. Flow of Input/Output Data During a Processor Application 
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Loader (IBLDR) 



A Brief Description of the Loader Operation 

The Loader operation is divided into phases or sections. 
Section 1 performs the following functions: 

1. It reads the relocatable input decks. 

2. It forms a text-processing control dictionary and 
program name table from the input control dictionaries. 

3. It separates the file text from the data and pro- 
cedure text and stores them for later processing. 

4. It processes the information retained by the Pre- 
processor from the $name, $use, and somit cards. 

5. It determines which control dictionary entries 
refer to virtual names. 

6. It searches the Subroutine Name Table for virtual 
names and forms a list of the required subroutines. 

7. It reads the subroutine input decks, completes 
the control dictionary processing, and saves the sub- 
routine file, data, and procedure texts. 

8. It processes the information saved by the Pre- 
processor from the spool cards. 

9. It determines the size of blank common. 
Section 2 performs the following functions: 

1. It assigns an absolute location to s.sloc and as- 
signs absolute locations to control dictionary file entries. 

2. It assigns absolute locations to control dictionary 
data and procedure entries. 

3. It processes the file text saved by Section 1, 
forming working file blocks. 

4. It processes the working file blocks; it performs 
unit assignment, buflFer assignment, and data and pro- 
cedure address field assignment. 

Section 3 performs the following functions: 

1. It places the file blocks in absolute text. 

2. It processes the data and procedure text to form 
absolute text. 

3. It places absolute text in core storage and places 
any overflow on an external storage unit in a form 
acceptable to the System Loader. 

4. It creates a copy file if copy is specified. 
Section 4 performs the following functions: 

1. It clears those parts of storage not used by the 
object program. 

2. It loads the text from core storage and uses the 
System Loader to load from the overflow unit, if 
necessary. 

3. It transfers control to the object program. 
Section O and Section I are two small sections that 

control Loader processing and perform initialization, 
respectively. 



Section L produces a map, logic, dlogic, and/or 
FILES output listing, if specified on the sibjob card. 



Description of the Program Deck 

The program deck that is produced by the Macro 
Assembly Program for processing by the Loader con- 
sists of: BCD control cards; a binary control dictionary; 
binary text; and, optionally, a debugging dictionary. 

The first card of each program deck is a $ibldr card. 
This is followed by a $cdict card, which signifies that 
the binary card(s) that follows contains the control 
dictionary for the deck.. If a ddict (either full or ab- 
breviated) has been requested on either a sibmap or 
siBFTC card, the next alphameric card is a sddict card fol- 
lowed by the binary card(s) containing the debugging 
dictionary. Otherwise, the next alphameric card is a 
$TEXT card indicating that the subsequent binary 
card(s) contains the program text for this deck. The 
last card of every deck is a sdkend card. 

The $TEXT card and the binary text cards following 
it are optional in a program deck that is to be loaded; 
however, they are usually included. All other previ- 
ously mentioned cards must be present for each deck 
to be loaded and executed. At least one deck, in a 
group of decks to be loaded and executed together, 
must contain the stext card and the associated binary 
text cards. 



BCD Card Format 



COLUMN 



$IBLDR 
$CDICT 



8 

declcnm 

decknm 

decknm 



INDICATES 

Beginning of the program deck. 

Beginning of the binary control 
dictionary. 

Beginning of the binary debug- 
ging dictionary. 

Beginning of the relocatable bi- 
nary text. 

End of the program deck. 



$DDICT 

$TEXT decknm 

$DKEND decknm 
The decknm in columns 8-13 is not checked by the 
Loader. The Loader uses the deckname entry in the 
binary control dictionary to identify the deck. The 
date, which is inserted by the Assembler, starts in 
column 16 of the $ibldr card. 

Binary Card Format 

There are three binary sections of the Loader program 
deck: the binary control dictionary, the binary de- 
bugging dictionary (optional), and program text. 
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2 


3 


'a 


5 


6 


7 


8 


9 


10 


n 


12 


13 


14 


is 


16 


17 


18 


19 


20 


21 


22 


23 


1 

24 


00000000 

n 74 75 76 77 71 79 N . 
11111111 

22222222 
33333333 
44444444 
55555555 
66666666 
77777777 
88888888 
999»9999 
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Figure 28. Column Binary-Card Format 

The 24-word column binary card form is used as 
shown in Figure 28. 

Each 36-bit binary word is punched in three columns 
of the card as shown in Figure 29. 

The first word of the column binary card is a control 
word that describes the information on the rest of 
the card as follows: 

MEANING 

Relocatable program deck indicator. 

Verify check sum. 

Do not verify check sum. 

IB JOB relocatable deck. 

Deck unacceptable to the Loader. 



BITS 


CONTENT 


s,i 


11 


2 







1 


3 







1 


4 





5-7- 


001 



8-12 

13-17 

18-20 
21-35 



010 



100 



01010 



000 



The information on the rest of the 

card is relocatable program text. 
The information on the rest of the 

' card is control dictionary text. 
The information on the rest of the 

card is debugging dictionary text. 
Column binary card indicators ( 9-7 

punch ) . 
Word count of meaningful words on 

card. 



Card sequence number. 

The second word on the card is the logical sum of 
all words on the card except the check sum word. If 
this word is zero or if bit 2 of word 1 is 1, the Loader 
will not check the logical sum. 

These two words are common to the control dic- 
tionary, relocatable program text, and the debugging 
dictionary portions of the deck (if present). Each of 
the three sections is sequenced independently (word 1, 
bits 21-35). Sequencing starts at zero; all cards must 
be in sequence. 

The description of the other words on the card 
(words 3-24) will depend on whether the card is a 
control dictionary card, a relocatable program text 
card, or a debugging dictionary card. Since the debug- 
ging dictionary is an optional section, words, 3-24 of 



the DDiCT card are discussed in detail in the section 
"Debugging Processor." 

B'lnarY Control Dictionary 

Each card of the binary control dictionary has bits 
5-7 of word 1 punched 010. The data words start 
in word three of the card and continue until. either 
there is no more room on the card or the control 
dictionary is complete. The word count in the first 
word specifies the number of control dictionary words 
on each card. 

The control dictionary is made up of two-word 
entries. There are seven possible kinds of entries in 
the control dictionary of each program deck to be 
loaded: Preface, Deck Name, Control Section, Ref- 
erence Point, External Reference, Even, and File. 

The order of these entries in the control dictionary is: 

1. The Preface entry 

2. The Deck Name entry 

3. All File entries 

4. All External Reference entries 

12 
11 



1 

^ 2 

c 

I 3 

I 4 

.c 
c O 

3 

a. 

6 

7 

8 

9 



s 


12 


24 


1 


13 


25 


2 


14 


26 


3 


15 


27 


4 


16 


28 


5 


17 


29 


6 


18 


30 


7 


19 


31 


8 


.20 


32 


9 


21 


33 


10 


22 


34 


11 


23 


35 



16 17 

Card Columns 



18 



Figure 29. Placement of a 36-Bit (S-35) Binary Word in Three 
Columns of a Column Binary Card 
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5. Control Section, Reference Point, and Even entries 
in ascending order according to address 

The sign bit of the last word of the control dictionary 
is minus. 

Preface Entry: The first entry in the control dic- 
tionary indicates whether the deck is a relative or ab- 
solute deck, gives the location of the entry point for 
the deck, and indicates the number of bits needed to 
express a reference to the control dictionary. The con- 
tents of the two words in the Preface entry are: 



pfx 
PZE 



X, , r 
n 



where: 

pfx 

= PZE if the deck is a relative deck (produced by a RELMOD 

assembly ) . 
= PTW if the deck is a relative deck and contains a (TCD 

pseudo-operation ) break. 
= MON if the deck is an absolute deck (produced by an 

ABSMOD assembly). 
= MTH if the deck is an absolute deck and contains a (TCD 

pseudo-operation ) break. 

X 1 

= the relative or absohite location of the entry point for this 
deck. 

r 

=the highest relative location assigned to the relocatable 

binary text, if the deck is a relative deck. 
= the number of control dictionary entries, if the deck is an 
absolute deck. 

n 

= the maximum number of bits required to express a refer- 
ence to any entry in the control dictionary. The value of n 
is such that the number of entries in the control dictionary 
is less than or equal to 2" but greater than 2"'\ (For ex- 
ample, if the control dictionary has 15 entries, n = 4. ) 

Deck Name Entry: This is the second entry in the 
control dictionary. The contents of the two words in 
the Deck Name entry are: 

BCI 1, deckname 

PZE 0, ,n 

where: 

deckname 

= the deck name as punched in columns 8-13 of the $IBMAP 
$IBFTC, or $IBCBC card for the deck, 
n 

= the length of the program for the deck. 

File Entries: These entries are for file areas within 
the program deck that may be replaced, deleted, or 
referred to by other program decks. The format of 
each File entry is: 

BCI 1, filnam 

PTW 

where filnam (a real name) is the name of the file area. 
External Reference Entries: These entries are for 
references within a program deck to names in other 
program decks. The Macro Assembly Program pro- 
duces External Reference entries for a symbolic deck 
containing: 



1. EXTERN pseudo-operations. Every name in the var- 
iable field of an extern pseudo-operation is included 
in the control dictionary. 

2. System symbols, of the form S.xxxx, that are not 
defined within the symbolic deck. 

The contents of the two words in each External 
Reference entry are: 

1, exname 
0, ,0 

where exname is the name that is external to the deck. 
Exname is a virtual name. 

Control Section Entries: These entries are for pro- 
cedure and data areas within the program deck that 
may be replaced, deleted, or referred to by other pro- 
gram decks. The contents of the two words in each 
Control Section entry are: 



BCI 
PTH 



BCI 
PON 



1, ctlnam 
loc, , Ingth 



where: 



ctlnam 

= the name of the control section. Ctlnam is a real name, 
loc 

= the relative or absolute location of the beginning of the 
control section. 
Ingth 

=the length of the control section. 

Reference Point Entries: These entries are for ref- 
erence points within this program deck. These refer- 
ence points are not necessarily entry points to the deck. 
References can be made by other program decks to 
be loaded with this program deck. Entries of this type 
are produced by an entry pseudo-operation. The con- 
tents of the two words in each Reference Point entry 
are: 



BCI 
PON 



1, refnam 
loc, , 



where: 

refnam 

= the name of the reference point. Refnam is a real name, 
loc 

= the relative or absolute location of the reference point. 

Even Entries: These entries provide information to 
the Loader in order to ensure an even load address for 
a certain instruction or word of data. Even entries are 
produced by an even pseudo-operation in the program 
deck. The contents of the two words in each Even 
entry are: 

BCI 1, 000000 

PZE loc, , 

where loc is the location of the data or instruction, 
relative to the start of the deck. 

Relocatable Binary Program Text 

There are two sections of relocatable binary text: 

1. File text 

2. Data and procedure text 
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File text always appears first, if it exists. Data and 
procedure text follows file text and always starts on a 
new card. Either or both of these parts of the relocat- 
able binary program text may be omitted. Words 1 
and 2 are control and check sum words, as previously 
noted. Bits 5-7 of the first word are 001 for relocatable 
binary program text cards. Words 3, 4, and 5 contain 
nineteen 5-bit control groups that give relocation in- 
formation for the nineteen data words on the card 
(words 6-24). Words 3 and 4 each contain seven con- 
trol groups; word 5 contains the remaining five control 
groups (see Figure 30). The sign of these words is 
plus, with one exception: word 3 of the first card 
containing data and procedure text has a sign of minus. 
Words 6 through 24 of the card contain relocatable 
binary program text. 

The five-bit control groups indicate to the Loader 
how the associated data word is to be processed. The 
first bit of the five bits indicates that the data word 
which follows is either a standard entry or a special 
entry. 

Standard Entry: Bit 1 of the five-bit control group 
is 1 for a standard entry. The remaining four bits 
describe the manner in which the address and decre- 
ment of the associated data word are to be processed. 
It is important to reahze that several data words on a 
card may form a single absolute text word. Only the 
address and decrement fields of the standard entry 
data word are relocatable. THe prefix and tag fields 
are not changed by the Loader; they are determined 
by the Macro Assembly Program and passed on to the 
Loader. 



Standard entry control groups have the following 
format: 

1 ddaa » 

where the bits dd and aa specify the type of relocation 
for the decrement and address, respectively, of the 
data word. The following bit settings are possible for 
dd or aa: 

00 means the value of the field is constant. 

01 means the value of the field is determined in relation to the 
start of the deck. 

10 means the field is a reference to the control dictionary ( this 
setting is possible for aa only ) . 

11 means the field is part of a complex expression that may ex- 
tend into the subsequent data words. 

Constant Addresses and Decrements: The code 00 
indicates that the address or decrement of the associ- 
ated data word that is passed to the Loader by the 
Macro Assembly Program is not changed by the Loader. 
No processing is done by the Loader; the field has 
been completely proces'sed by the Macro Assembly 
Program. 

Relative Addresses and Decrements: The code 01 
indicates that the address or decrement of the asso- 
ciated data word is a value that is determined in rela- 
tion to the start of the program deck. The Control 
Break Table, which is internal to the Loader and ac- 
counts for deletions or insertions made in a program 
deck, is scanned for the relative value in the associated 
data field (address or decrement). If the relative value 
is within a deleted section of this deck, the reference 
is considered invalid and no assignment will be made. 
If the value is within a retained section of the deck. 



/T 



i 



-3 



8 



T 



f 



00000000 

73 74 7S 76 77 78 79 BO 
11111111 

22222222 
33333333 
44444444 
55555555 
66668666 
77777777 
88888888 
99999999 

17174 79 76 77 7879 80 



Figure 30. Relocatable Binary Text Format 
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an absolute base that has been adjusted for all previous 
insertions and deletions is added to the relative value. 

Dictionary Reference Addresses: The code 10 indi- 
cates that the value in the address field is a dictionary 
reference. This code may be used for only the address 
field of a data word within a long form complex. A 
dictionary reference always results in a complex ex- 
pression. 

Note: Any reference within a symbolic deck to a 
point within a control section is expressed to the Loader 
in the form b + c, where b is a pointer to the control 
dictionary and c is a displacement from the start of 
the control section. At load time, the Loader will adjust 
this reference to allow for insertions within the control 
section that result from even pseudo-operations. Ex- 
ternal references are expressed in the form b + c, with 
c equal to 0. 

Complex Field Decrements and Addresses: The dec- 
rement or address, or both, of a data word can be repre- 
sented as a complex expression requiring evaluation at 
load time. Addresses or decrements requiring such 
evaluation are given a relocation code of 11. The ex- 
pression to be evaluated may then be expressed in one 
of two ways: 

1. The associated data field (decrement/address) 
equals zero (sometimes called Long Form Complex). 
The long form complex is used when an expression 
(e.g., A/4+3/4) is longer than can be expressed in the 
associated data field or when an expression uses multi- 
plication or division. The long form complex consists 
of a string of data words, each with a corresponding 
control group. 

Each word of a long form complex has the form: 



pfx 



a, b, c 



where: 
pfx 

= PZE if addition ( + ) is indicated 

= PON if subtraction ( — ) is indicated 

= PTW if multiplication ( * ) is indicated 

= PTH if division (/) is indicated 

The control groups describing subsequent words in 
the strings for an expression have the same format as 
the control groups already described, except that the 
meaning of the 11 code is changed to mean a result 
storage cell. Seven such result storage cells ( designated 
by placing b equal to 0, 1, . . ., 6 ) can be used for inter- 
mediate results during the evaluation of a complex 
expression. 

A word in a complex expression is interpreted as: 
a pfx c-> b 

where b is the result storage cell into which the result 



is to be placed. The complex expression is terminated 
by a word for which b = 7. 

2. The associated data field (decrement/address) 
does not equal zero (sometimes called Short Form 
Complex). This form may be used to express complex 
fields of the form, name + c, where name is the exter- 
nal name of a control section. The 15-bit field is formed 
as follows: 

Bitl 

=0. 
Bits 2 through n -H 1 

indicate the relative location of name in this deck's control 
dictionary, n is the number of bits required to express the total 
length of the control dictionary ( for example, if CDICT contains 
15 entries, then 4 bits, required to express 15 as a binary num-. 
ber, would be used, i.e., bits 2-5). 
Bits n -I- 2 through 15 

contain a constant ( 15 - n - 1 bits long) to be added to the 
location assigned to name. Note that the long form complex may 
have to be used if more than 14 bits are required to express the 
length of the control dictionary and the addend. 

Special Entry: Bit 1 of the five-bit control group is 
for a special entry. Special entry control groups have 
the following format: 

ssss 

where the four bits, ssss, specify the type of special 
entry. 

0000: End of card (no data word is associated with 
this entry). No- more data words appear on this card. 

0001: Location counter control. The associated data 
word expresses a change in location counter. The for- 
mat of the data word is : 



pfx 



where: 

pfx 

= PZE if X is an absolute origin.^ 

=PON if X is a relative origin.^ 

= MZE if a complex origin within this deck is defined in the 

associated expression that contains a dictionary reference to 

a real section. 

= MON if a complex origin within this deck is defined in the 
associated expression that contains a dictionary reference to 
a virtual section. 

=^MTW if a complex origin may or may not be within this 

deck. It is used in a FORTRAN blocked data program. 
=PTW if this is a BSS of length x. 
=PTH if this is an EVEN pseudo-operation; x is zero. 

0011: File text follows. The address portion of the 
associated data word contains the relative location of 
the file name entry in the control dictionary. The 
decrement portion contains the number of file informa- 
tion words that follow. (This number is dependent on 
whether label information is present or not. If label 
information is present, the sign is minus. ) The subse- 



iQrigins are an integral part of text and each card does not carry its rela- 
tive load address. 
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quent data words and their associated control groups 
contain information for generating file control 
blocks. They are formed from file pseudo-operations. 
The eight words of file text, which follow the first 
word, correspond respectively to words fccur, fclng, 
FCRCT, FCUNi, FCCON, FCFCN, FCBSN, and FCEXi of the file 
control block described in the publication IBM 7040/ 
7044 Operating System (16/32K): Input/Output Con- 
trol System, Form C28-6309. Control groups of constant 
address and decrement are associated with them except 
where an external name is specified (as in err, eor, 
EOF, ADDLBL, and NSLBL optious), in which case the 
appropriate portion of the control group is complex and 
the data field is short form complex. If there is labeling 
information, there are five more words of file text. 
These have control groups indicating constant ad- 
dresses and decrements. 

OiXX; "End of current logical record (tcd pseudo- 
operation) break, where xx describes the address por- 
tion of the data word as follows: 

00 Constant 

01 Relative 
11 Complex 

The address formed will be the location of the entry 
point for the storage load that has just been con- 
structed. ( All Subroutine Library subroutines called by 
a program using the tcd pseudo-operation will be 
loaded with the final logical record; all file control 
blocks and pool control words will be loaded with the 
first logical record.) 

lOVV: VFD expression, where vv describes the man- 
ner in which the data field is to be processed by the 
Loader. (The meaning of the vv codes is given later 
in the text. ) The Loader will assemble a string of bits 
or words that contain constants, relative locations, dic- 
tionary references, and complex expressions that do not 
necessarily fall within the normal boundaries of address 
or decrement. 

Each data word that corresponds to a vfd control 
group specifies one field of the vfd expression and 
specifies whether a word should be terminated. The 
general format of a data word is: 



t 


ct 


data field 



S 1 

where: 



5 6 



35 



ct 



= if the assembly continues in the same machine word or 

words (across machine word boundaries). 
= 1 if the current machine word is terminated and filled with 

zerois in the unused rightmost positions. 

=the number of bits from the data field that are to be inserted 
into the generated string. The rightmost ct bits are inserted. 
(ct<30) 



The vv codes that may appear in the control group 
for a VFD expression are as follows: 

vv » 

= 00 if the data field is constant. 

= 01 if the address portion (last 15 bits) of the data field 
contains a relative address ( described under "Standard En- 
try" ) . It is relocated in the same manner as any other rela- 
tive field. The rightmost ct bits are inserted into the VFD 
string. 

= 10 if the address portion of the data field is a dictionary 
reference ( described under "Standard Entry" ) . The address 
is cornputed and the rightmost ct bits are inserted into the 
VFD string. 

= 11 if the address portion of the data field conforms to the 
rules for complex expressions (described under "Standard 
Entry" ) . After evaluation, the rightmost ct bits are inserted 
into the VFD string. 

1100: Object-time reference to the object program 
entry point (used by the Debugging Processor). The 
associated data word can be any constant that has zero 
in the address portion of the word. The address portion 
will be set to the program entry point by ibldr. 

1111: End of text indicator. No data word is asso- 
ciated with this control group. 

Storage Allocation 

The Loader allocates storage to the object program, as 
follows : 

1. If s.SLOC is referenced in the program, it is as- 
signed to the first non-storage-protected location after 
the level of iocs specified on the sibjob card, and a five- 
word block is placed in the succeeding locations. 

The five words will contain the following: 

S.SLOC + 1 fblorg, t, toting 

+ 2 7, ,fbllng 

+ 3 tabavl 

+ 4 dporg, , dpend 

4-5 blcorg 

where: 

fblorg 

= the loibation of the first word of the first file control block. 

t 

= 6 if the JOBS level of IOCS was specified on the $IBJOB 

card. 
= 4 if the lOLS level of IOCS was specified on the $IBJOB 

card. 
= 2 if the IOOP2 level of IOCS was specified on the $IBJOB 

card. 
= if the lOOPl level of IOCS was specified on the $IBJOB 
card, 
toting 

=the total length in words of the file control blocks. 
fbUng 

=the length in words of a file control block ( 19 ) . 
tabavl 

= the first location available for' tables. It is one of the 
following: 

1. The first location for the /DEBUG deck if load-time 
debugging facilities are used. 

2. The first location in the Pool Control Table. 

3. The first location in blank COMMON if there are no 
buffers. 

4. S.SEND if there are neither buffers nor blank COMMON. 
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dporg 

=the first location used by data or procedure text in the decks 
loaded for this program, 
dpend 

= the last location used by data or procedure text in the decks 
loaded for this program, 
blcorg 

=the first location used in blank COMMON. 

NOTE: If the appropriate items do not exist for a program, 
fblorg, fbllng, and blcorg are zero. Unspecified bits do not nec- 
essarily contain zeros. 

Figure 34 shows the relative location of these words 
in core storage. When a dependent chain link is loaded 
into core storage, dpend is adjusted. 

2. File text for each file is formed into a 19-word file 
control block. All file control blocks are located either 
immediately after the five-word block following s.sloc 
or at the first non-storage-protected location following 
the area used by the level of iocs specified on the 
siBjOB card. (File text from the Subroutine Library 
appears with the rest of the file text. ) 

3. The data and procedure text are formed into abso- 
lute text starting at the first location after the last word 
assigned to the file blocks. 

4. Subroutine Library data and procedure text fol- 
low the data and procedure text formed from the input 
decks. 

5. Blank common is assigned storage immediately 
below the highest location available to the system 
(s.send). 

6. Buffers are assigned immediately below blank 

COMMON. 

7. Pool control wortjs are created and are assigned 
locations immediately below the buffers. 

Note: Programs assembled in absmod are loaded 
without regard to the points above. The user must, 
therefore, exercise care so that absolute text does not 
conflict with locations assigned for relocatable text, 
file control blocks, etc. Locations assigned to absolute 
text are not taken into account when relocatable text 
(including fibrary routines) is loaded. 



Blank COMMON 



Buffers 



blcorg 



Poo! Control Table 



/DEBUG 



Unused Core Storage 



tabavl 



dpend 



Decks and Subroutines 



File Control Blocks 



S.SLOC and 5 Words 



Constant Core Storage 



dporg 



fblorg 



Reload Program 

The Reload Program is a subsystem under the Proc- 
essor Monitor. It is designed to search for, load, and 
execute absolute object programs produced by the 
Loader when copy is specified on the $ibjob card. 

The Reload Program eliminates the necessity of 
using the Loader each time the programs are loaded, 
thereby reducing load time of debugged programs. 

Format of Input 

The input unit to the Reload Program contains one or 
more files in the following format: 



Figure 31. Storage Allocation 



1. Information record about the object program in- 
cluding: 

a. Name 

b. File block information 
Entry point 
Buffer origin 
// COMMON origin 
S.SEND at copy time 



c. 
d. 
e. 
f. 
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g. IOCS level specified on sibjob card at copy time 
h. Absolute address of iocs level specified at copy 

time 
i. Load address of first record of program 

2. Table of Contents entries for object program, 
consisting of one three-word entry for each logical 
record (or link) in the format described in the section 
"Table of Contents." 

3. Absolute program in the format described in the 
section "System Library." 

4. End-of-file mark. 

The last file is a dummy file, created by the Loader, 
to indicate the end of all programs. This file consists 
of a three-word record followed by an end-of-file mark. 
The three-word record is created by means of the 
following pseudo-operation: 

BCI 3, /DUMMY 

Operation 

The Reload Program seeks the absolute object program 
on the input unit, using the program name and options 
specified in the $reload card. 

If the NOSRCH ojftion is specified, the Reload Program 
rewinds the input unit, reads the first information 
record, and checks the name from this record. If the 
name corresponds to the program name from the 



$RELOAD card, the rest of the information record is 
processed and checking is done to see if the program 
can be loaded corrpctly. If the name does not corre- 
spond, processing is terminated and the job is skipped. 

If the SRCH option is specified, the Reload Program 
positions the input to the next information record and 
checks the program name for this record. If the name 
corresponds to the program name from the sreload 
card, the rest of the information record is processed 
and checking is done to see whether the program can 
be loaded correctly. If the name in the next informa- 
tion record does not correspond to the one in the 
SRELOAD card, the Reload Program repeats the above 
process until the specified program is located, or until 
all files on the input unit have been checked. If the 
program cannot be located, processing is terminated 
and the job is skipped. 

The Table of Contents record is then read and ad- 
justed to correspond to the. unit that contains the 
object program. It is then transmitted to the Abbre- 
viated Table of Contents area in the Nucleus. 

Core storage is then cleared, the System Loader is 
used to load the object program, a begin message is 
typed, and control is given to the object program. If the 
System Loader finds that the device is incorrectly posi- 
tioned, a permanent error occurs since the device can- 
not be correctly positioned. 



A Brief Discussion of the Assembly Process 

The information in this section is provided to give the 
reader an understanding of the basic structure of the 
Macro Assembly Program, 

The Macro Assembly Program is divided into six 
sections: (1) Phase A (for source input only) per- 
forms a pass over source input to expand macro- 
instructions and to form input to the Dictionary Re- 
duction section and to Phase B; (2) Interface (for out- 
put from the compilers only) performs a pass over 
output from the compilers to expand macro-instructions 
and generate card images for the listing; (3) the Dic- 
tionary Reduction section assigns values to symbols 
for use in Phase B and produces the control dictionary 
for use by the Loader; (4) Phase B assembles the in- 
struction text for the Loader and produces the assembly 
listing for the deck; ( 5 ) the Cross Reference Dictionary 
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section produces the cross reference dictionary if ref 
is specified, and (6) the Error Editor writes out the 
diagnostic error messages for the deck. 
The sequence of sections for source input is: 

Phase A 

Dictionary Reduction 

Phase B 

Cross Reference Dictionary 

Error Editor 
The sequence of sections for compiler input is: 

Interface 

Dictionary Reduction 

Phase B 

Cross Reference Dictionary 

Error Editor 

Figure 32 shows the sequences in a generalized 
block diagram form. 



The input/output units are as follows: 

IN contains the source Input, if applicable, and may be S.SIN1 or any 

utility unit specified by a $IEDIT card. 
Work Unit 3 contains compiler input, if applicable, and later contains 

diagnostic data from Dictionary Reduction and Phase B, for the Error 

Editor. Work Unit 3 is also the Phase A DUP file, if applicable to 

source input. 

Work Unit 1 contains the dictionary data between Phase A and the 
Dictionary Reduction phase. It also contains intermediate data between 
Phase B and the Cross Reference phase, if REF is specified. 

Work Unit 2 contains the internal text (T2) and, if LIST is specified, card 
images between Phase A and Phase B. It also contains a symbol diction- 
ary for the Cross Reference Dictionary and Error Editor. 

OU contains the assembly output, including the listing and diagnostic 
messages. !t may be S.SOUl or any utility unit specified by a $OEDIT 
card. 

PP contains the punched output, and is S.SPPl. 

Load File is used when either GO, MAP, FILES and/or LOGIC or DLOGIC 

options are specified to contain the relocatable binary decks for the 

program. 



Figure 32. Block Diagram for Source and Compiler Input 
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The Input, Output, and Punch Editors are used by 
the Macro Assembly Program. The actual output of the 
assembler is dependent upon the $ibcbc, $ibftc, $ibmap, 
or $iBjOB card options. 

Phase A 

This section obtains source input from the system input 
unit ( or the unit indicated by a $iedit card ) and pro- 
duces two sets of data: the definition file for the Dic- 
tionary Reduction section and the internal binary text 
( T2) to be processed by Phase B. 

Phase A contains an initialization section which: 
( 1 ) interprets the sibmap card and sets the appropriate 
switches, and (2) enters, by hashing, the operation 
codes into an External Reference Table. 

When the initialization process is completed, each 
source input statement is read in and classified as 
either a macro definition, a macro usage, a pseudo- 
operation, a one-for-one instruction, a comments (*) 
card, or an end statement. Each source input state- 
ment is then processed by the appropriate section of 
Phase A to produce for that statement the internal 
text (T2), which is written onto work2. If the state- 
ment has a location symbol or is a pseudo-operation, an 
entry is also written on worki for the Dictionary Re- 
duction section. When the end statement is detected, 
the following processing is completed before the Dic- 

From S.SLDR 



tionary Reduction section is called: literals are proc- 
essed, EXTERNS for undefined system symbols (e.g., 
s.send) are written ♦on the definition file for the Dic- 
tionary Reduction section, and the end statement is 
written in internal text format on worki and works. 

Disk and Drum Orders: The ibm 1301 Disk, 1302 
Disk, and 7320 Drum Orders are an optional feature of 
the 7040/7044 Macro Assembly Program. To assemble 
these orders, the user must update and reassemble 
Phases A and B, and then edit the binary decks onto 
the current., system tape. The symbohc instruction 
DisKsw SET must be changed to disksw set i in 
MP.3000, MP3300, and MP6000. Since Phase A (mp2600, 
MP3000, MP3300, and MP4000) is chained, all of it must 
be reassembled and edited together. 

Figure 33 shows an overall flowchart for Phase A. 

Interface 

This section obtains input from the compiler input file 
and routes the T2 text to the Phase B file. If the state- 
ment has a location symbol or is a pseudo-operation, an 
entry is also written on worki for the Dictionary 
Reduction section. In addition, this section produces 
card images of the T2 text for subsequent fisting on the 
system output unit and expands the call, save, and 
return operations. When the end statement is de- 
tected, the Dictionary Reduction section is called. 
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Figure 33. Overall Flowchart for Phase A 
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Dictionary Reduction 

The function of this section is assigning values to all 
symbols and generating the control dictionary for use 
by the Loader. 

The Dictionary Reduction section builds an internal 
dictionary that contains values for all symbols in the 
program, as computed by the Dictionary Reduction 
section. Pseudo-operations are evaluated, if possible, 
and the location counter is incremented as required. 
The ENTRY, EVEN, and control pseudo-operations are 
evaluated; these, together with file and extern pseudo- 
operations, are used to form the control dictionary, 
which is punched on s.sppi and/or written on the load 
file as it is formed. If a pseudo-operation cannot be 
evaluated initially, it is placed into the pseudo-opera- 
tion dictionary for later evaluation. Each entry in the 
internal dictionary is chained to the preceding entry 
to form a program chain; entries in the pseudo-opera- 
tion dictionary are made part of the program chain. 
When the end statement is read, the pseudo-opera- 
tion dictionary is consulted to see if there are any un- 
evaluated pseudo-operations, which are then evalu- 
ated. The internal text is then reordered into the format 
required by Phase B. If errors are detected, error indi- 
cations are passed to the Error Editor. 

The control dictionary will be listed on s.soui, if 
LIST is specified. 

At the completion of the Dictionary Reduction sec- 
tion, the internal dictionary is left in storage and Phase 
B is called. 

Phase B 

The primary function of this phase is to produce an 
output deck in relocatable format. Direct input to this 
section is produced by both Phase A and Dictionary 
Reduction. The output consists of sequential coding of 
the program in the relocatable binary format accept- 
able to the Loader (ibldr). 

Phase B reads the text from either Phase A or the 
Interface and, using the internal dictionary produced 
by Dictionary Reduction, inserts the appropriate (re- 
locatable ) values. If an error message is required for a 
statement, a code is written on the error unit for the 
Error Editor. The statement is processed by deter- 
mining the values of any symbols in the statement 
from the internal dictionary and producing an assem- 
bled instruction in relocatable binary format. The 
assembled statement is written on the system peri- 



pheral punch file if deck is specified on the $ card for 
the deck; it is written on the system output file with an 
assigned statement number if list is specified on the 
$ card for the deck; and it is written on the load file if 
GO, MAP, and/or logic or dlogic are specified on the 
$iBjOB card for the Processor application. When Phase 
B encounters the end statement, it calls the Cross 
Reference Dictionary if ref has been specified, and, if 
necessary, calls the Error Editor. Otherwise, it returns 
to the System Return routine ( s.sret ) . 

Cross Reference Dictionary 

The function of the Cross Reference Dictionary section 
is to produce the cross reference dictionary that ap- 
pears in the listing if the ref option applies for an 
assembly. 

The cross reference dictionary in the listing may 
contain four types of information: 

1. Statement number references to defined symbols 

2. Multiply-defined symbols 

3. Undefined symbols 

4. Starting and ending statement numbers for loca- 
tion counters 

Internally, the Cross Reference Dictionary section 
has three major parts. The first part reads the .external 
dictionary produced by Phase A or Interface. The 
external dictionary contains the bcd symbol names in 
the same order as the entries giving the definition of 
these names in the internal dictionary. Using the ex- 
ternal and the internal dictionaries, this part classifies 
all names as defined, multiply-defined, undefined, or 
as names associated with the location counters. The 
first part also alphabetically sorts the names within 
each of these four groups. 

The second part reads a file that is produced by 
Phase B. This file contains one-word entries (or two- 
word entries, if within a macro) giving the location 
in the internal dictionary where the name is defined, 
and the statement number in which the reference to 
it is found. Using this information, this part associates 
the statement number with the bcd name to which it 
refers. The third part writes the output on s.soui. 

Error Editor 

This section interprets the internal coding of error in- 
dications from the Macro Assembly Program, the 
FORTRAN Compiler, and the cobol Compiler and pro- 
duces the appropriate diagnostic error messages for 
the listing. 
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A Brief Description of the FORTRAN Compiler 

The five sections of the Fortran Compiler are: 

The Scan, which classifies source statements, pro- 
duces diagnostic messages, forms dictionaries of sym- 
bols, and translates statements into internal text. 

The Storage Allocator, which generates constants, 
translates format statements, builds alphameric tables, 
generates equivalences, reserves storage, and generates 
extern pseudo-operations for external symbols. 

The Arithmetic and Logical Translator, which ex- 
pands input/output Hsts, builds the indexing table, and 
reorders arithmetic and logical statements into com- 
putational order. 

The Indexing Analyzer, which forms the input to the 
Indexing Generator, optimizes the use of subscripts, 
and allocates index registers. 

The Instruction Generator and Indexing Generator, 
which completes the generation of the T2 text for input 
to the Macro Assembly Program. 

Figure 34 shows the relation of these sections, input/ 
output unit allocation, interphase data flow, and the 
order of execution of these sectioi^s. 

Definitions 

Tl Text: An internal text produced by the Scan sec- 
tion and modified by the Arithmetic and Logical Trans- 
lator. 

T2 Text: The text that is passed to the Macro Assem- 
bly Program. 

Scan 

This phase initially receives control from s.sldr, as a 
result of a $ibftc card being recognized. This phase 
then reads all statements from s.sini and lists them on 
s.soui. Statements controlling data allocation (com- 
mon and equivalence statements ) are converted to in- 
ternal reference text, and written on a utility unit. 

Other information is tabled in the internal and ex- 
ternal dictionaries. The imperative statements are 
written in the Tl text. During this process, undeclared 
names are added to the external dictionary and are 
classified. When errors are detected in the source pro- 
gram, the messages are placed in T2 text form in 
common-equivalence text. At the end of the pass, the 
now complete external dictionary, containing bcd 
names, is written on the T2 text file. 



Storage Allocator 

This phase performs storage allocation based upon 
common and equivalence statements, and other in- 
formation contained within the internal dictionary. 
Storage allocation instructions are added to the T2 
text file. As soon as the common and equivalence in- 
formation is read at the beginning of this phase, the 
unit is repositioned for use by the first section of the 
Arithmetic and Logical Translator Phase. In addition. 
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Figure 34. Flowchart Showing Unit Allocation, Interphase Data 
Flow, and the Order of Execution of the Sections 
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FORMAT Statements are translated into calling se- 
quences to the proper Fortran library conversion rou- 
tines. Alphameric arguments in call statements are 
also written out in T2 form, as are any other literals 
referenced by the source program. Scan error messages 
are copied in T2 form onto the T2 text file. 

Arithmetic and Logical Translator 

This phase reads statements in Tl text form, reorders 
and optimizes the arithmetic and the logical expres- 
sions read, and then writes the modified Tl text. The 
Arithmetic and Logical Translator creates the dofor 
table for input to the Indexing Analyzer and expands 
input/output statements into do loops, where this is 
impHed in the input/output list. 

Indexing Analyzer 

This phase reads the altered Tl text prepared by the 
Arithmetic and Logical Translator. Simultaneously, 
further indexing information and "regional" context 
records are written. 

Instruction Generator and Index Generator 

This phase reads Tl text and indexing information and 
compiles generated instructions (in T2 format), add- 
ing these instructions to the T2 text file. The T2 text file 
then contains the entire input to the assembly phase of 
the 7040/7044 Macro Assembly Program. Control is 
transferred to the Macro Assembly Program, using the 
System Loader (s.sldr), for completion of the assem- 
bly and preparation of the object listing oii 's.soui and 



for writing out the relocatable binary deck on the sys- 
tem peripheral punch unit ( s.sppi ) . 

Figure 35 shows the use of symbolic units by the 
FORTRAN Compiler. 

FORTRAN System Routines 
Format Conversion Routines 

The routines that provide for the editing and conver- 
sion of input and output records under the control of 
FORMAT statements are: 

The ACV Routine performs alphameric conversion 
for BCD data. 

lOHAc, is the entry point for the format a specifica- 
tion. 

The MAP calling sequence generated by the compiler 

for this routine is: 

AXT fieldcount, 2 (if any) 

TSX lOHAC. , 4 

PZE width 

The DCV Routine performs floating-point conversion 
for double-precision numerical data. 

lOHDC. is the entry point for the format d specifi- 
cation. 

The MAP calling sequence generated by the compiler 
for this routine is : 

AXT field count, 2 ( if any) 

TSX lOHDC, 4 

PZE width,, number of decimals 

The ECV Routine performs floating-point conversion 
for numerical data. 

Editing of true zero values is available for D and E 
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conversion of output. If the editing feature is included, 
a zero value is printed as a single digit, followed by a 
decimal point and, if the zero value is negative, pre- 
ceded by a minus sign, as follows: 

0. Positive zero value 

—0. Negative zero value 

The remainder of the field ( the positions following the 
decimal point) contains blanks. 

Without the editing feature, all zero digits and the 
exponent are printed, as in the following example: 
-O.OOOOOOOOE-38 
The use of the editing feature is controlled by the 
following assembly parameter in the ecv routine: 

SUPRES SET X 
where: 

X 

= 1 if the editing feature is to be included 
=0 if the editing feature is not to be included 

The distributed version of the ecv routine provides 
the editing feature. 

lOHEC. is the entry point for the format e specifica- 
tion. 

The MAP calling sequence generated by the compiler 
for this routine is: 

AXT fieldcount, 2 (if any) 

TSX lOHEC. , 4 

PZE width,, number of decimals 

The FCV Routine performs fixed point conversion 
for numerical data. 

For F conversion of output, the entire field is filled 
with asterisks when the specified width is insufficient to 
contain the number. For F conversion of positive num- 
bers, limited relaxation of the field width requirement 
is provided by the extra digit feature. If this feature 
is used, the sign position of the field, which otherwise 
contains a blank, provides space for an additional sig- 
nificant digit. 

The use of the extra digit feature is controlled by the 
following assembly parameter in the fcv routine: 

EXTRA SET x 
where: 

X 

= 1 if the sign position may be used for a digit 
= if the sign position may not be used for a digit 

The distributed version of the fcv routine does not 
provide the extra digit feature. 

lOHFC. is the entry point for the format f specifica- 
tion. 

The MAP calling sequence generated by the compiler 
for this routine is: 

AXT Heldcount, 2 (if any) 

TSX lOHFC. , 4 

PZE w^idth, , number of decimals 

The HCV Routine inserts bcd characters from the 
input record into the format specification and inserts 
BCD characters from the format specification into the 



TSX 
PZE 
BCI 



output record. 

lOHHC. is the entry point for the format h specifica- 
tion. » 

The MAP calling sequence generated by the com- 
piler for this routine is: • 

lOHHC. , 4 

number of characters 

( number of characters + 5 ) /6, 

BCD text 

The ICV Routine performs integer conversion for 
numerical data. 

lOHic. is the entry point for the format i specifica- 
tion. 

The map calling sequence generated by the com- 
piler for this routine is: 

AXT field count, 2 ( if any ) 

TSX lOHIC. , 4 

PZE width 

The LCV Routine performs logical conversion for 
T and F characters. 

lOHLC. is the entry point for the format l specifica- 
tion. 

The MAP calling sequence generated by the com- 
piler for this routine is: 

AXT field count, 2 ( if any ) 

TSX lOHLC. , 4 

PZE width 

The OCV Routine performs octal conversion for 
numerical data. 

lOHOC. is the entry point for the format o specifica- 
tion. 

The MAP calling sequence generated by the com- 
piler for this routine is: 

AXT fieldcount, 2 (if any) 

TSX lOHOC. , 4 

PZE width 

The RWD Routine controls the input and output 
of BCD records, and controls the conversion of alpha- 
meric data in accordance with format specifications. 

lOHCM. is the initial entry point from conversion 
routines that use input/output list data items. 

lOHCT. is the final entry point from conversion 
routines. 

lOHLP, is the entry point for the format left 
parenthesis. 

The MAP calling sequence generated by the com- 
piler for this routine is: 

AXT group count, 1 (if any) 

TSL lOHLP. 

lOHRP. is the entry point for the format right 
parenthesis. 

The map calling sequence generated by the com- 
piler for this routine is:' 

TSL lOHRP. 

lOHEF. is the entry point for the end of a format 
statement. 

The MAP calling sequence generated by the com- 
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piler for this routine is: 

TRA lOHEF. 

lOHio. is the entry point for the format slash (it is 
also for all required bcd input/output). 

The MAP calling sequence generated by the com- 
piler for this routine is: 

TSX lOHIO. , 4 

lOHSF. is the entry point for a format scale factor. 
The MAP calling sequence generated by the com- 
piler for this routine is: 

TSX lOHSF. , 4 

(signed scale factor) 

Other entry points to this routine that are not con- 
cerned primarily with format conversion are listed in 
the publication IBM 7040/7044 Operating System 
(16/32K): Programmers Guide, Form C28-6318. 

The SCA Routine performs a scan and format trans- 
lation for variable (or read-in) format statements 
at object time. 

fmtsc. is the entry point from rwd upon ascertain- 
ing that the format statement is variable and, thus, has 
not been pretranslated by the compiler. 

The XCV Routine skips characters in the input 
record and inserts blanks in the output record. 

lOHXC, is the entry point for the format x specifica- 
tion. 

The map calling sequence generated by the com- 
piler for this routine is: 

TSX lOHXC. , 4 

PZE number of characters 

Machine-Oriented Subroutines 

The routines that provide for machine indicator test- 
ing and traps at object time' follow. 

Note that, in these routines, I equals an integer 
indicating the number of the sense light or sense 
switch and J equals an integer variable to be set 
according to the results of the test. 

The DCT Routine tests the divide-check indicator, 
sets J to 1 if it is on, and sets J to 2 if it is off. 

DVCHK is the entry point for the following source 
program statement: 

CALL DVCHK(J) 

The FPT Routine: The ac and mq are set according 
to the trap condition: 

1. An AC and mq overflow condition has occurred: 
the AC and mq are set to all I's. 

2. An AC and mq underflow condition has occurred: 
the AC and mq are set to all O's. 

3. An MQ overflow condition has occurred: the ac is 
set equal to the old ac and the mq is set to all I's. 

4. An mq underflow condition has occurred: the ac 
is set equal to the old ac and the mq is set to all 0*s. 

5. An AC overflow condition has occurred: the ac is 
set to all I's and the mq is set equal to the old mq. 

6. An AC underflow condition has occurred: the ac 



is set to all O's ^nd the mq is set equal to the old mq. 

The number of floating-point traps allowed depends 
on three assembly parameters: 

fptlim is the maximum number of overflow traps 
allowed. 

ODDLiM is the maximum number of odd address 
traps allowed. 

FPULiM is the maximum number of underflow traps 
allowed. 

A separate count is kept for each type of trap con- 
dition. When the number of traps exceeds the maxi- 
mum allowed, execution is terminated and the user 
is notified of excessive traps. Each of the assembly 
parameters, fptlim and fpulim, is set equal to 10 
in the distributed version. The parameter . oddlim is 
set equal to 1. 

The user has the option of having a message printed 
each time a trap occurs. The assembly parameter 
GETMES regulates this option. With getmes set i, 
messages will be printed; with getmes set o, messages 
will not be printed. The distributed version contains 
getmes set 1. 

The following messaiges are possible: 

1. AC, MQ OVERFLOW AT XXXXX 

2. AC, MQ UNDERFLOW AT XXXXX 

3. MQ OVERFLOW AT XXXXX 

4. MQ UNDERFLOW AT XXXXX 

5. AC OVERFLOW AT XXXXX 

6. AC UNDERFLOW AT XXXXX 

7. ODD ADDRESS TRAP AT XXXXX 

The assembly parameter meslim indicates the maxi- 
mum number of messages to be printed. In the dis- 
tributed version, meslim equals 20. 

SETFP. is the entry point for initialization of non- 
standard processing of floating-point traps. 

The MAP calling sequence generated by the com- 
piler for this routine is: 

TSL SETFP. 

OVERF. is the storage cell for the last floating-point 
trap indicators; referenced by ovf. 

FPT provides a routine to simulate double-precision 
operations. The inclusion of this routine is controlled 
by the following assembly parameter: 

DPOPT SET X 
where: 

X . 

= 1 if the simulation routine is to be included 
=0 if the simulation routine is to be deleted 

The distributed version of the fpt routine includes 
the simulation routine. If this simulation is unnecessary, 
the user may delete the routine by reassembling fpt 
with the proper setting of dpopt and editing the new 
FPT into the Subroutine Library. 

The OVF Routine tests for floating-point overflow/ 
underflow, sets J to 1 if there is overflow, sets J to 3 
if there is underflow, and sets J to 2 if neither condi- 
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tion exists. 

ovERFL is the entry point for the following source 

program statement: 

CALL OVERFL (J) 

The SLN Routine turns on the Fortran sense light; 

it turns oflE all Fortran sense lights if I = 0. 

SLiTE is the entry point for the following source 

program statement: 

CALL SLITE (I) 

The SLT Routine tests Fortran Sense Light I, sets 

J to 1 if it is ON, and sets J to 2 if it is off. 

slitet is the entry point for the following source 

program statement: 

CALL SLITET (I, J) 

The SWT Routine tests Sense Switch I and sets J to 

1 if it is ON, 2 if it is off. 

sswtch is the entry point for the following source 

program statement: 

CALL SSWTCH (I, J) 

System Communication Subroutines 

The following routines provide direct communication 
with the System Monitor and Processor Monitor: 

The DMP Routine takes storage dumps according 
to specifications in arguments. 

DUMP is the entry point for the following source 
program statement: 

CALL DUMP ( a,, bi, f 1 . . . an, b„, f „ ) 

where: 



a,b 



f 



= variable data names indicating the limits of the core storage 
to be dumped. 



= an integer iiidicating the dump format desired. 

After dumping, control is returned to the System 
Monitor. 

PDUMP is the entry point for the following source 
program statement: 

CALL PDUMP ( ai, bi, f i . . . a„, bn, f n ) 

where: 

a, b 

= variable data names indicating the limits of the core storage 
to be dumped. 

f 

= an integer indicating the dump format desired. 

After dumping, core storage is restored and execu- 
tion resurnes. 

The PWS Routine types the contents of the address 
portion of the accumulator in octal and causes a pause 
during execution. 

PAUSE, is the entry point called by the source pro- 
gram statement: 

PAUSE n 

The MAP calling sequence generated by the compiler 

for this routine is: 

CLA n 

TSL PAUSE. 

The XEM Routine controls object program error 
procedure. 



errou. is the entry point from an invalid Computed 
goto. 

FEXEM, is the entry point from Fortran library sub- 
routines upon detecting an object program error at 
execution time. 

MATOP. is the programmed switch that allows by- 
passing the call to s.sdmp and resumption of execution 
in the following mathematical library subroutines : 

XPl, XP2, XP3, XPN, ATN, LOG, SCN, ARSON, SQR, 
FCXP, FCLG, FCSC, FDXl, FDX2, FDXP, FDLG, 
FDSC, FDSQ, FCA 

The MATOP. switch is a control section. 
SYSOP. is the programmed switch that allows by- 
passing the call to s.sdmp and resumption of execution 
in the following system library subroutines: 

lOS, RWB, RWD, ICV, LCV, DCV, SCA, SLN, SLT, 
SWT, UTV, BST, EFT,'RWT, FPT 

The SYSOP. switch is a control section. 
If the optional return to execution has been chosen, 
the following message is written in the system output 

file: 

ERROR CONDITION AT xxxxx FORTRAN ERROR xx 
IGNORED. RETURN TO EXECUTION 
FORTRAN error messages that are written in the sys- 
tem output file indicate the. location of the error in the 
object program. The following message appears in the 
system output file: 

ERROR CONDITION AT xxxxx 
where xxxxx is the address, in octal, of the core storage 
location that contains the detected error. 

The XIT Routine returns control to the Processor 
Monitor. 

EXIT is the entry point for the following terminal 
source program statements: 

PROGRAM IN WHICH THE 
STATEMENT OCCURS 

Main or subprogram 
Main or subprogram 



STATEMENT 

STOP 

CALL EXIT 
RETURN 



Main program 



FORTRAN File Routines 

The following routines are used to generate the file 
control blocks for Fortran files. These routines are 
located in the Subroutine Library in the relocatable 
binary format. 

ROUTINE DESCRIPTION 

FOO Contains the file text used by any source program 

input/output statement that refers to logical unit 0. 
FTCOO. FILE UOO, UOO, BLOCK = 0257, 
ETC SINGLE, TYPES, LRL=256, 
ETC RCT = 001, ERR = RERRX.,' 
ETC EOF = REOFX.,^ 
ETC EOR = REORX.,^ REEL 
FILOO.'' PZE FTCOO. 



iRERRX. and REORX. and REOFX. are control sections in the lOS rou- 
tine. They are defined by an EXTERN in each file control block routine. 
'■'This is the entry point to which reference is jnade in the instruction 
sequences generated by the compiler. The entry point is defined by an 
ENTRY pseudo-operation. 
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ROUTINE 
FOl 



F02 



F03 



F04 



F05 



F06 



F07 



FRD 



FPR 



FPC 



DESCRIPTION 

Contains the file text used by any source program 
input/output statement that refers to logical unit 1. 
FTCOl. FILE UOl, UOl, BLOCK = 0257, 
SINGLE,'TYPE3, LRL=256, 
RCT = 001, ERR = RERRX./ 
EOF = REOFX./ 
EOR = REORX./ REEL 
FTCOL 

Contains the file text used by any source program 
input/output statement that refers to logical unit 2. 
FTC02. FILE U02, U02, BLOCK = 0257, 
SINGLE, TYPES, LRL=256, 
RCT = 001, ERR = RERRX.,^ 
EOF = REOFX.,* 
EOR = REORX.,^ REEL 
FTC02. 

Contains the file text used by any source program 
input/output statement that refers to logical unit 3. 
FTC03. FILE U03, U03, BLOCK = 0257, 
SINGLE, TYPE3, LRL=256, 
RCT = 001, ERR = RERRX.,^ 
EOF = REOFX.,^ 
EOR = REORX.,^ REEL 
FTC03. 

Contains the file text used by any source program 
input/output statement that refers to logical unit 4. 
FTC04. FILE U04, U04, BLOCK = 0257, 
SINGLE, TYPES, LRL=256, 
RCT = 001, ERR = RERRX.,^ 
EOF = REOFX.,^ 
EOR = REORX.,^ REEL 
FTC04. 

This routine is used to refer to the system input 
file control block. It is used by any source pro- 
gram input/output statement that refers to log- 
ical unit 5. 

FIL05.'' PZE S.FBIN 
This routine is used to refer to the system out- 
put file control block. It is used by any source 
program input/output statement that refers to 
logical unit 6. 

FIL06.'' PZE S.FBOU 
This routine is used to refer to the system periph- 
eral punch file control block. It is used by any 
source program input/output statement that refers 
to logical unit 7. 

FIL07.^' MZE S.FBPP, , S.FBOU 
This routine is used to refer to the system input 
file control block. It is used by any source program 
input/output statement that refers to logical unit 
READ. 

FILRD.'' PZE S.FBIN 
This routine is used to refer to the system output 
file control block. It is used by any source program 
input/output statement that refers to logical unit 
PRINT. 

FILPR.^ PZE S.FBOU 
This routine is used to refer to the system periph- 
eral punch file control block. It is used by any 
source program input/output statement that refers 
to logical unit PUNCH. 

FILPC.''' MZE S.FBPP, , S.FBOU 



ETC 
ETC 
ETC 
ETC 
FILOl.'' PZE 



ETC 
ETC 
ETC 
ETC 
FIL02.^ PZE 



ETC 
ETC 
ETC 
ETC 
FILOS.'' PZE 



ETC 
ETC 
ETC 
ETC 
FIL04.'' PZE 



iRERRX. and REORX. and REOFX. are control sections in the lOS rou- 
*i?,f- They are defined by an EXTERN in each file control block routine. 
'This IS the entry point to which reference is made in the instruction 
Pi3xn"v^* S«"«'a*ed by the compiler. The entry point is defined by an 
liJNlni pseudo-operation. 

»The punch file pointers are indicated with the MZE prefix. This will indi- 
punch fs"nvolved ^*^ ''"'*^™ ""^P"* ^^^^ ^^^" combined print/ 



FORTRAN Routine Storage Requirements 

The following chart shows octal and decimal storage 
requirements *and dependencies for Fortran routines. 
Parentheses are used to indicate a non-FORTRAN routine. 



ROUTINE 

ACV 

ARSON 

ATN 

BST 

CNSTNT 

DCT 

DCV 

DMP 

ECV 

EFT 

ERF 

FOO 

FOl 

F02 

F03 

F04 

F05 

F06 

F07 

FRD 

FPR 

FPC 



REQUIREMENTS 
OCTAL DECIMAL 



30 
117 

230 

126 

7 

26 

241 
1670 

207 
33 

136 
24 
24 
24 
24 
24 
1 

1 

1 

1 



24 

79 

152 

86 

7 

22 

161 

952 

135 

27 

94 

20 

20 

20 

20 

20 

1 

1 

1 



FCA 


131 


89 


FCAB 


44 


36 


FCLG 


45 


37 


FCSC 


110 


72 


FCSQ 


55 


45 


FCV 


71 


57 


FCXP 


63 


51 


FDAT 


231 


153 


FDLG 


166 


118 


FDMD 


60 


48 


FDSC 


215 


141 


FDSQ 


75 


61 


FDXP 


174 


124 


FDXl 


210 


136 


FDX2 


72 


58 


FFC 


367 


247 


FPT 


350 


232 


GAMA 


245 


165 


GCV 


23 


. 19 


HCV 


103 


67 


lOS 


267 


183 


ICV 


20 


16 


INTJ 


314 


204 


LCV 


35 


29 


LOG 


145 


101 


MTN 


20 


16 


ocv 


60 


48 


OVF 


42 


34 


PWS 


13 


11 


RWB 


411 


265 


RWD 


467 


311 


RWT 


17 


15 


SCA 


266 


182 


SCN ■ 


157 


111 


SCNH 


100 


64 



DEPENDENCIES— ROUTINES 
REFERRED TO BY THIS ROUTINE 
RWD, lOS 

XEM, SQR, ATN 

XEM 

XEM.XIT, (IOBS),IOS 



RWD, ECV, FFC, INTJ 
XIT, lOS 

RWD, INTJ, FFC, lOS 
IOS,XEM, (lOBS) 



One 257-word buffer 
One 257-word buffer 
One 257-word buffer 
One 257-word buffer 
One 257-word buffer 
( System input file control 

block) 
( System output file control 

block) 
( System peripheral punch file 

control block ) 
( System input file control 

block) 
( System output file control 

block) 
( System peripheral punch file 

control block ) 
XEM 
SQR 

FCAB, ATN, LOG, XEM 
SCN, SCNH, XEM 
SQR, FCAB 
RWD, INTJ, FFC, lOS 
SCN, XPN, XEM 
XEM 
XEM 



XEM 

XEM 

XEM 

XEM 

FDXP, FDLG, XEM 

INTJ, RWD, lOS 

XEM,XIT, (lOEX) 

XEM, XPN, LOG 

ECV, FCV, RWD, FFC 

RWD, lOS 

XEM, XIT, (lOBS) 

RWD, INTJ, lOS 

RWD, lOS 

XEM, RWD, lOS 

XEM . 



XEM, RWD, lOS 

FPT 

(lOEX) 

IOS,XEM, (lOBS) 

IOS,XEM, (lOBS) 

IOS,XEM, (lOBS) 

XEM, ACV, DCV, ECV, 
FCV, GCV, HCV, FCV, 
LCV, OCV, XCV, RWD 

XEM 

XEM, XPN 
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ROUTINE 
SLI 

SLN 

SLO 

SLT 

SQR 

SWT 

TNCT 

TNH 

UTV 

xcv 

XEM 

XIT 

XPl 

XP2 
XP3 
XPN 



STORAGE 

REQUIREMENTS 

OCTAL DECIMAL 



25 

45 
25 
51 

100 
41 

171 
76 
33 

16 

223 

2 

73 

67 

51 

106 



21 
37 
21 
41 
64 
33 
121 
62 
27 

14 
147 
2 
59 
55 
41 
70 



DEPENDENCIES— ROUTINES 
REFERRED TO BY THIS ROUTINE 

XEM 
XEM 
XEM 
XEM 
XEM 
XEM 
XEM 
XPN 

XEM, XIT, FOO, FOl, F02, 
F03, F04, F05, F06, F07 
RWD, lOS 

(IBDMP), (lOEX), (lOBS) 
(IBJOB) 
XEM 
XEM 

XEM, XPN, LOG 
XEM 



ROUTINE IN 
WHICH THE 
ERROR IS EN- 
COUNTERED 
lOS 



Subroutine Error Exits 

Error conditions in the object program that are dis- 
covered by the Fortran library will normally result 
in a call to ibdmp, which will write error messages 
on- and off-line and terminate execution. [On-line 
messages are listed, together with an explanation, in 
the publication IBM 7040/7044 Operating System 
(16/32K): Operators Guide, Form C28-6338.] How- 
ever, two core storage locations, used as switches, are 
provided to allow the ibdmp call to be bypassed and 
execution to be resumed in some Fortran subroutines. 
These words, matop. and sysop., are assembled as 
control sections in the xem routine. Bits 1-29 of matop. 
control error conditions 01-29 [described in the pub- 
hcation IBM 7040/7044 Operating System (16/32K): 
Subroutine Library (FORTRAN IV Mathematical Sub- 
routines), Form C28-6806], while bits 1-29 of sysop. 
control error conditions 31-59. If the optional return 
for any of these error conditions is desired, the cor- 
responding bit should be set to 1, either temporarily by 
replacing the control section with the desired bit con- 
figuration or permanently by reassembling the xem 
routine. 

Input/Output Subroutine Error Exits 

ROUTINE IN 
WHICH THE 
ERROR IS EN- 
COUNTERED 
UtV 



ERROR ERROR 

CODE CONDITION 

32 Variable unit not 
defined. 

BST 33 Attempt to back- 

space past begin- 
ning-of-file. 
59 Attempt to back- 
space the system 
output or punch file. 

EFT 34 Attempt to write 

file mark on the 
system input, out- 
put, or punch unit. 

RWT 35 Attempt to rewind 

the system input, 
output, or punch 
unit. 



OPTIONAL RETURN 

To the XIT 
routine. 
To the XIT 
routine. 

Ignore the 
operation. 

Ignore the 
operation. 



Ignore the 
operation. 



RWB 



RWD 



ERROR ERROR 
CODE , CONDITION 

36 1. Attempt to write 

on the system 
input unit. 

37 2. Attempt to read 

the system out- 
put file. 

38 3. File mark 

reading. 

49 4. Block sequence 

error. 

50 4. Check sum 

error. 

51 5. Block sequence , 

and check sum 
errors. 

52 6, Permanent read 

redundancy. 

53 7. Attempt to write 

on unopened file. 

54 8. Buffer overflow. 



55 9. Error in lOBS 

Type 2 or 3 
record control 
word. 

56 10. Unexpected 

mode change. 

39 1. Internal word 

count ^7^ IOCS 
word count. 

40 2. Input list ex- 

ceeds FORTRAN 
record length. 

41 Output line has over- 
flowed 1401 limit. 



OPTIONAL RETURN 

To the XIT 
routine. 

To the XIT 
routine. 

Read the next 
file. 

Process the 
record read. 
Process the 
record read. 
Process the 
record read. 

Process the 
record read. 
Return to lOBS 
for job termina- 
tion. 

Write as much 
of the record as 
will fit in buffer. 
Set the word 
count to actual 
number of words 
remaining in 
buffer. 

Process the rec- 
ord that was read. 
Process the rec- 
ord read. 

Set the remain- 
ing list items 
to zero. 

Continue to write 
on next line. 



Convert Subroutine Error Exits 



ROUTINE IN 
•W^HICH THE 
ERROR IS EN- 
COUNTERED 
ICV 

LCV 
OCV 
SCA 



ERROR ERROR 

CODE CONDITION 

42 Invalid input 
character. 

43 Invalid input 
character. 

44 Invalid input 
character. 

45 Invalid character 
in variable 
FORMAT. 



Machine-Oriented Subroutine Error Exits 



OPTIONAL RETURN 

Treat the charac- 
ter as zero. 
Treat the charac- 
ter as blank. 
Treat the charac- 
ter as zero. 
Treat the charac- 
ter as end of 
format". 



ROUTINE IN 








WHICH THE 








ERROR IS EN- 


ERROR ERROR 




COUNTERED 


CODE 


CONDITION 


OPTIONAL RETURN 


FPT 


31 


Excessive floating 


To the XIT 






point traps^ 


routine. 


SLN 


46 


I>4i 


Take no action. 


SLT 


47 


1=0, I>4i 


SetJ = 2. 


SWT 


48 


1 = 0, I>6i 


Set J = 2. 


XEM 


60 


Illegal GO TO 


Take first branch. 



i^The maximum value is determined by an assembly parameter in the corre- 
sponding routine. 
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The COBOL Compiler 



The COBOL Compiler consists of four phases, as follows: 
Phase I, Language Reduction, reads the source pro- 
gram and reduces it to a concise form that can be 
handled easily by subsequent phases of the compiler. 
Phase II, Syntax Analysis, reads the reduced — i.e., 
encoded — source program, and further reduces the 
statements in the Procedure Division to a simpler 
form suitable for processing by Phase iv. In addition, 
it provides special handling of perform statements, 
and collects information concerning files and exter- 
nal names from portions of the Environment, Data, 
and Procedure Divisions. 

Phase III, Data Reduction, has a twofold function. 
It generates in assembler-interface (t2) text, the neces- 
sary area-reservation and data-generation instructions 
for the entries in the Data Division, and creates the 
out-of-Iine iocs linkages needed for each file described 
in the File Section. Also, it attaches to each data-name 
in the Procedure Division the characteristics described 
for it in the Data Division. 

Phase IV, Procedure Generation, reads the Procedure 
Division statements, in reduced, internal-text form, 
and generates the appropriate instructions in t2 text 
for the Macro Assembly Program. 

The first three phases are each divided into two 
parts, each part consituting a separate core storage 
load. Thus, the cobol Compiler comprises seven distinct 
core storage loads. Further, part 1 of Phase i consists of 
three dependent hi^ks chained to a main link. Phase iv 
consists of two dependent links chained to a main link. 

The compiler requires four tape units for compila- 
tion in addition to the minimum of three required 
concurrently by the Processor (s.slbi, s.sini, and 
s.soui). The assembler-interface input is written by 
Phase IV on one output tape. 

Figure 36 shows the relationship of the phases, in- 
put/output unit allocation, and interphase data flow. 
Figure 37 shows the input/output unit allocation for 
compilations that involve recursive passes. A more 
detailed description of each of the phases follows. 

Phase I, Language Reduction 

Phase I consists of two parts, each a separate core stor- 
age load: part 1, the Initial Edit; and part 2, Qualifica- 
tion Reduction. Phase i, part 1 initially receives control 
from s.SLDR, as a result of a $ibcbc card being recog- 
nized. It initializes all cobol system words, and then 
reads the source program, one card at a time. It 



recognizes each of the four divisions of a cobol pro- 
gram and interprets the contents of each appropriately, 
partially encoding all input statements. This includes 
a recognition of cobol words, data-names, procedure- 
names, special-names, and file description. All source 
names at point-of-definition are encoded and placed 
in an external dictionary for use by Phase i, part 2. 
In addition to building the external dictionary and 
partially encoding the source program, part 1 pro- 
duces the source-program hsting on s.soui. 

Phase I, part 2 reads the partially encoded program 
on the main file and compares it with the external 
dictionary, assigning internal identifiers to the source 
names at point-of-usage. This may require more than 
one pass of the main file if the external dictionary 
created by part 1 was too large to be retained in core 
storage. In addition to the completely encoded main 
program, part 2 produces, on a separate file, an internal 
dictionary that contains a unique identifier and en- 
coded data characteristics for every name in the Data 
Division. A glossary of source-program names with 
corresponding generated names is produced on s.soui. 

Phase il, Syntax Analysis 

Phase II consists of two parts: (1) Syntax Analysis, 
and (2) Table Processing. Phase ii, part 1 reads the 
main file written by Phase i, part 2 and converts the 
internally coded Procedure Division statements into 
sequences of elementary operations in a form suitable 
for the individual verb analyzers of Phase iv. In addi- 
tion, part 1 extracts, from the main file, information 
about each of the specified source-program files, all 
external names specified in control and file-refer- 
ence statements in the Environment Division, and 
external names following entry statements in the 
Procedure Division. Also, information is collected 
from perform statements for return linkages following 
procedures executed by these statements. This infor- 
mation is placed in a table that is retained in storage 
for analysis by Phase ii, part 2. 

All other main-file input read by Phase n, part 1 is 
placed, unchanged, into the main output file. 

Phase II, part 2 processes the tables left in storage 
by part 1. The output of this part is placed on the 
miscellaneous file (an input to Phase m), and con- 
sists of the following types of records: 

1. FILE pseudo-operation records 

2. LABEL pseudo-operation records 

3. PERFORM insertion records 

4. control insertion records 
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Figure 36. Input/Output Unit Allocation for COBOL Compiler 
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Figure 37. Input/Output Unit Allocation for COBOL Compilation with Recursive Passes 
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Phase III, Data Reduction 

The functions of Phase iii are as follows: 

1. To generate, in ts text, the necessary area-reser- 
vation and data-generation instructions for entries 
in the Data Division of the source program. 

2. To generate linkages to all of the iocs routines 
required by a file. 

3. To attach to each operand in the Procedure 
Division of the source program the data characteristics 
given in the Data Division. 

4. To insert after all blocks of generated coding 
referred to by perform statements the linkage back to 
the main program. 

5. To generate, a short external dictionary, to be 
passed to the assembler, for all source statements 
that require correlation between internal and external 
names. 

Phase III is divided into two parts. Part 1 analyzes the 
Data Division clauses ( except value ) that have been 
encoded in Phase i. It constructs an internal dictionary 
that contains, for each entry in the Data Division, a 
data-characteristic block containing descriptive infor- 
mation for the entries such as usage, class, size, syn- 
chronized, scahng, decimal, and integer counts. This 
internal dictionary remains in storage throughout the 
execution of the phase. 

Part 2 compares the main file with the internal 
dictionary created by Phase iii, part 1, and makes 
appropriate insertions into the main file from the mis- 
cellaneous file created by Phase ii, part 2. For Phase 
in, part 2, the main file consists of ( 1) a Data Division 
which, in turn, contains a File Section, a Working- 
Storage Section and a Constant Section; and (2) a 
Procedure Division which has been reduced to basic 
operations by Phase ii, part 1. 

When the File Section is encountered in the Data 
Division, PhaSe iii, part 2 determines which input or 
output routines are required for each file in the section, 
and the out-of-line calling sequences to these routines 
are generated. The location of the records associated 
with the file in storage at load time is established by 
equating the name of each record to the address of the 
first word of the file control block for the file. 

When the Working-Storage and Constant Sections 
are encountered in the Data Division, Phase iii, part 2 
determines, for each record, whether or not any value 
clauses have been specified. If not, a single bss, labeled 
with the record name, is generated having an operand 
computed from the total number of characters stated 
in the data-characteristic block. If any value clauses 
are present*, oct pseudo-operations are generated to 
incorporate the constants into the area generated for 
the entry. 

When the Procedure Division is encountered, each 
data-name has the characteristics that are defined for it 



in the Data Division. As sections and paragraphs re- 
ferred to by PERFORM verbs- are encountered, the trans- 
fers back to the perform statement are generated from 
the information given in the miscellaneous file, and 
inserted appropriately. 

A separate external-dictionary file is generated dur- 
ing the comparison of the main file. The entries on this 
file are names of object-time routines, names associated 
with files, names of control sections, and names from 
ENTER assembly-program scctious of the source pro- 
gram. Note that in Phase iii, part 1, if the internal dic- 
tionary does not fit in the storage available for it, it is 
written in segments onto an external storage medium. 
In Phase iii, part 2, then, each segment is compared 
with the corresponding portion of the main file. In this 
case, the external dictionary is not generated until the 
last segment has been read into storage. 

Phase IV, Procedure Generation 

Phase IV translates general statements to particular 
coding, where the coding varies according to the input 
variables. The statement "move a to b" may cause any 
one of a large number of combinations of instructions 
to be generated, depending on the definitions of A 
and B (in the Data Division). For example, if A and 
B both occupy one word of storage and have the same 
characteristics, the following instructions are generated: 



CLA 
STO 



If both A and B occupy n words of storage and have 

the same characteristics, the following instructions are 

generated: 

CAL LABEL 

TMT n 



LABEL PZE B„A 

where label is generated out-of-line. If both a and b 
are numeric, computational, and synchronized right, 
having pictures of 99V9 and 99V99 respectively, the fol- 
lowing instructions are generated: 



LDQ 


A 


MPY 


= 10 


STQ 


B 



The determination of the particular series of in- 
structions to be generated is accomplished by an 
"analyzer." There is one analyzer for each type of 
statement possible (move, add, if, go to, etc.). 

Another function of Phase iv is the optimization of 
generated coding. This involves keeping track of the 
contents of the index registers, arithmetic registers, 
temporary storage area, and subscript address words 
by associating the data-name with the status words for 
the register or area. For example, if the instruction 
LXA field,4 is generated, field is associated with the 
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status words for index register 4. If an instruction is 
then generated that can change the contents of field, 
such as STO FIELD, then the status words for index 
register 4 would be cleared. All status words are cleared 
if a source procedure-name or compiler-generated pro- 
cedure-name is encountered. 

The use of the status words is illustrated by the fol- 
lowing example. A numeric display field is moved to a 
NUMERIC COMPUTATIONAL field. Phasc IV generates 
coding to convert the source field, saves the converted 
field in a temporary storage area, and moves it to the 
target field; in addition, it initiates the status words for 
the temporary storage area. If, subsequent to the move 
but prior to any procedure-name or coding that would 
change the contents of the numeric display field, that 
field is moved to another computational field, the 
generated coding will pick up the converted field 
from the temporary storage area. This eliminates a 
duplicate conversion. The relevant- status words indi- 
cate that the converted field is in the temporary stor- 
age area. 

The optimizing procedure cannot detect that, the 
contents of a field are being changed when the con- 
tents are referred to by a diflFerent name, a situation 
that arises when redefines is used. Consequently, cau- 
tion should be exercised in the use of redefines when 
numeric items are involved. 

Special Operands 

There are two special types of operands which require 
separate discussions; these are subscript symbols and 
intermediate results. 

Subscript Symbols 

A subscript symbol is used in order that a subscript 
may be extracted from the statement in which it 
appears and made into a separate statement. This 
method facilitates processing in both Phase ii and 
Phase IV. The translation works as follows: consider 
the source statement "move a(i, j) to b." Phase ii 
converts this to the two statements, (1) subs a, i, j, s. 
and (2) move s, b. The subs analyzer processes the 
first statement and assigns data characteristics to the 
subscript symbol S. The recognition of the subscript 
symbol in the move analyzer causes the characteristics 
assigned to it to be used in the resultant move genera- 
tion. 

Intermediate Results 

A complex statement is broken down to a series of 
simple statements. For example, compute a = b + c * d 
becomes: 

MULT C BY D GIVING IRl 

ADD IRl, B GIVING IR2 

MOVE IR2 TO A 



In the preceding example, iri and ir2 represent inter- 
mediate results. An intermediate result is a value in the 
AC, MQ, or AC-MQ, or in temporary storage. 

The general format of an arithmetic operation is: 
operation, operand 1, operand 2, operand 3 
The operation is addition, subtraction, multiplication, 
division, or exponentiation; operands 1 and 2 are data 
names, literals, or previously defined intermediate re- 
sults, and operand 3 is always an intermediate result. 
For the purpose of this discussion, the definitions of the 
operands are generalized as: 

operand 19(m) V9(n) 
operand 2 9(r) V9(s) 
operand 3 9(x) V9(y) 

where x and y are a function of the operation and of 
m, n, r, s, and d ( d is the maximum number of deci- 
mals used in the analyzed source statement up to and 
including the current operation). 

The number of decimal places (y) in operand 3 is 
calculated as follows: 

1. For addition or subtraction (operand 1 ± oper- 
and 2 ) : 

y = (n, S)m„x 

2. For multiplication ( operand 1 * operand 2 ) : 

y = n + s 

3. For division within a compute statement or an if 
statement (operand 1/operand 2): . 

y = n 

4. For division resulting from a divide statement: 

y = t (ifs + t-n^O) 

y = n-s (ifs + t-n<0) 

where t is the number of decimal places in the field to 
receive the quotient. 

5. For exponentiation (operand 1 ** operand 2): 

y = n + 2 
The number of integer places (x) in operand 3 for 
double-precision operations ( that is, operand 1 and/or 
operand 2 is double-precision) is calculated as follows: 

1. For addition or subtraction: 

X = (m, r)„,„x + 1 

2. For multiplication: 

X = m -H r 

3. For division: 

X = m -H s 

4. For exponentiation with a literal exponent: 

X = p * m 

where p is the number of places in the exponent after it 
has been rounded to the next highest integer. 

5. For exponentiation with a nonliteral exponent: 

X = r * m 

If X -F y is greater than 20 and d is greater than y, then x is 
equated to 20 — y. 

If X -H y is greater than 20 and d is less than y, then y is 
equated to d. If x + d is greater than 20, then x is equated 
to 20 - d. 

The number of integer places (x) in operand 3 for 
single-precision operations ( that is, both operand 1 
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and operand 2 are single-precision) is determined by 
calculating the largest value that the intermediate re- 
sult can attain. This value is calculated by picking 
values for operands 1 and 2 and performing the rele- 
vant operation. The values are picked to maximize the 
result with the exception of an operand that is an 
intermediate result; the value calculated for an inter- 
mediate result when it was defined is used. The number 
of bytes required for the ( binary ) value is calculated 
and the maximum number of digits that can be ex- 
pressed in that number of bytes minus the number 
of decimals is the number of integers. 

Processor Limitations 

The Processor limitations are as follows: 

1. The size of all data fields (group or elementary) 
may not exceed 32,766 characters. 

2. The number of files defined in a cobol program 
may not exceed 50. 

3. The number of PERFORM statements and/or 
external dictionary entries may not exceed 300. 

4. A single open statement may not contain more 
than 20 file-names. 

5. A single go to . . . depending on statement may 
not contain more than 95 procedure-names. 

6. The maximum number of nested if's is 102. How- 
ever, when any of these if's contain a logical operator 
(and, or), the maximum depends on a number of 
variables. These include: 

a. The number of else's 

b. The number of and's, not followed by or's 

c. The number of or's, not followed by and's 

7. Error checking of the consistency between the 
names in the data-records clause and in the record 
descriptions under an fd entry takes place only if there 
are 50 or fewer data records for that fd entry. 

8. Within the compute, if, and the until portion of 
a perform statement, 360 is the maximum number of 
elements that can be passed over before an operation 
within a formula can be evaluated. Due to the hier- 
archy of operations involved, the pattern in the first 
formula below would cause overflow at the 51st level of 
parenthesization and the pattern in the second formula 
would cause overflow at the 180th level: 

A-hB*C** (Al -I-B1*C1** (... 
A+ (Al + (A2+ (A3-I- (... 

When the number of elements exceeds 360, all sub- 
sequent elements will be deleted until any of the 
following are found: 

a. The end of the statement 

b. The words and or or, within the if and the 
until portion of a perform statement 

e. The word after, within the until portion of a 
perform statement 



Note: Within the if and the until portion of the 
perform statement, the levels of parenthesization are 
limited to 50; Within the compute statement there is 
no limit on parentheses. 

9. Within a formula to be evaluated by the com- 
pute, IF, and the until portion of a perform state- 
ment, an additional limitation exists. If the elements 
to be passed over, as explained under Limitation 8, in- 
clude literals or subscripted variables, overflow occurs 
when: 

n = A 

^ (2 + Cn/6) + 2N -I- NN + 3S + D > 900 

n=l 

where A = the number of alphanumeric literals 

C = the number of characters in each alphanumeric Uteral 
N = the number of numeric literals, single or double- 
precision, used as subscripts or not 
NN = the number of double-precision numeric Hterals 
S = the number of subscripted variables 
D = the number of data-names used as subscripts 

When such overflow occurs, subsequent literals and 
subscripted variables will be deleted. Normal process- 
ing will be resumed when the hierarchy of operation 
allows some portion of the formula containing sub- 
scripts or literals to be evaluated. 

10. The maximum number of times an area may be 
redefined, when the redefining entry is a group item, 
is 100. 

11. The maximum number of redefinitions on level 
01 and/or level 77 is 100. 

12. The maximum number of Data Division entries 
per data record is about 1,110. The maximum depends 
on a number of variables, such as the number and 
length of error messages and report field pictures, and 
the number of redefinitions and data items subscripted. 

13. The area of core storage allocated for tables sets 
the following hmitations on select entries with the 
renaming option: 

a. A minimum of 10 select statements with 
renaming. This Hmit assumes that both the 
renamed and renaming file-names are of maxi- 
mum source length, and that each sense 
switch available to the user has had both its 
on and off status symbolically defined. 

b. A maximum of 45 select statements with 
renaming. This limit assumes that both the 
renamed and renaming file-names are of 
minimum source length, one to six bytes. This 
limit also assumes that the user does not use 
the sense switches at the source level. 

14. The maximum number of elements allowed for 
a Data Division entry is 54. The following example has 
four distinct elements: 



02A 



PICTURE 



IS 



9(6) 
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The number of elements is arrived at by counting the 
source name and its level number as one element, each 
of the COBOL words as one element, and the predicate 
of the PICTURE clause as one element. Literals also 
count as one element. 

15. The maximum number of temporary storage 
areas that may be in use at one time is 50. Moreover, if 
a field that is to be saved is larger than any of the fields 
already in the temporary storage area and there are 
more than 25 fields in this area, the compilation will 
terminate with halt cbcoto. Temporary storage areas 
are required by the Processor as follows: 

a. For saving partial results of a complex compu- 
tation. 

b. For saving the converted form of a field when 
conversion is required. 

c. For saving registers that contain a field that 
is an operand of an operation, where one 

^ operand is neither computational nor syn- 
chronized RIGHT, and has been scaled; or the 
other operand is neither computational nor 
synchronized RIGHT, and requires scaling. 

16. The maximum number of invalid cobol words or 
names in a Data Division entry is approximately 25. 
The maximum depends on several variables such as the 
number and length of the error messages generated, 
the appearance of data-names interspersed with the 
invalid cobol words, and the number of correct clauses 
already processed for the entry. 

17. Due to the manner in which file-names and end- 
of-file labels are constructed, a deck name consisting 
of three letters followed by three numbers (e.g., 
ABCooi) may produce duphcate control sections. The 
value of the numeric portion of the deck name must 
be greater than three times the number of files plus 
the number of use after error procedure statements. 

18. The size of the cobol Compiler restricts the use 
of optional features of the 7040/7044 Operating System 
for a machine with 16K core storage. After editing the 
system, the user should examine the storage map of 
the COBOL phases for unused core to determine whether 
there is enough space to allow the addition of optional 
features. 

input/Output Unit Allocation 

A minimum of seven input/output units is required by 
the Processor during a cobol compilation. Three of 
these are the system units, s.slbi, s.sini, and s.soui, re- 
quired by the Processor Monitor. The other four are 
utility units used internally by the compiler, one of 
these is used for the Phase iv output file, which contains 
the T2-text input to the Macro Assembly Program. (In 
an application that includes compilation, loading, and 
execution, the Processor uses an additional utihty unit 



for the load file required by the Loader. ) The over-all 
allocation of the required seven units is shown in 
Figure 36 and is described in the following paragraphs. 
Figure 37 shows the unit allocation for compilation of 
a large source program requiririg recursive passes of 
the compiler phases. 

Phase I, Part 1 — Initial Edit 

The source program is read from s.sini and a source 
program listing is produced on s.soui. The partially 
processed source program (main file) is written on 
WORK2. An external dictionary is created in storage; a 
dictionary segment is written on worki at the end of 
the pass and each time the dictionary exceeds storage. 
Nothing is written on worki if the external dictionary 
does not exceed storage, works and work4 may be 
used internally for renaming processing. 

Phase I, Part 2 — Qualification Reduction 

The main file is read from work2 and,, if the external 
dictionary overflowed in part 1, a segment of the ex- 
ternal dictionary is read from worki. The main file is 
compared with the external dictionary and the output 
is written on work4. If more than one segment of the 
external dictionary is involved, this pass will recur, the 
main file being read from and written onto works and 
WORK4 alternately for each segment. During the last 
pass ( the only pass if only one segment of the external 
dictionary was involved) an internal dictionary string 
is written on worki. A glossary of equivalences of 
internal and external names is written on s.sou] . 

Phase II, Part I — Syntax Analysis 

The main file is read from work4. Processed output is 
written on works. Tables are created for perform, 
CONTROL, and fd information. 

Phase II, Part 2 — Table Processing 

The FD information and the perform and control 
tables from part 1 are processed. Output is written on 

WORK4. 

Phase III — Data Reduction 

Part 1: The internal dictionary is read from worki 
and an internal table of these entries is built. If the 
internal dictionary table area is exceeded, segments of 
the internal dictionary are written onto works until 
the complete internal-dictionary input string on worki 
is processed. 

Part 2: If the table area is not exceeded in part 1, 
the main file is read from works and a new main file 
is produced on works. Updated fd information from 
WORK4 constitutes the first records in the new main file. 
Approximate insertions from work4 are made in the 
new main file for perform and control statements. In 
addition, a new external dictionary is created on 
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WORKS, consisting of any external names of control 
entries that may have been included in the source 
program. 

If overflow occurred in part 1, the main file is read 
from WORKS and compared with the first internal dic- 
tionary segment, the new main file being written on 
woRKi. Subsequent passes will cause the main file 
to be read from and written onto worki and works 
alternately for each internal dictionary segment. 
During the last pass, the external dictionary is written 
on works. 

Phase IV — Procedure Generation 

The main file is read from worki and works, depend- 
ing upon the number of recursive passes, if any, in 
Phase III. A new main file is written on works so that 
it follows the external dictionary. The new main file 
becomes the input to the Interface section of the Macro 
Assembly Program. work4 may be used internally for 
long-literal processing. 

Files Assigned to System Units 

If the system input unit, system output unit, or system 
peripheral punch unit (in, ou, or pp) is specified for a 
file, in an assign to clause in the Environment Division, 
the Input, Output, or Punch Editor, respectively, is 
automatically loaded from the library tape, at load 
time, together with the object program. All references 
to these files by input/output verbs are made through 
the appropriate editor. It is the user's responsibility to 
ensure that the records described and the operations 
specified for one of these files do not contradict the 
system and installation file specifications. These speci- 
cations determine whether the file is input or output 
'and determine its blocking, logical-record length, 
mode, opening/closing characteristic, and labeling. The 
compiler effectively ignores any conflicting specifica- 
tions in the fd entry for the file in the Data Division, 
any references to the file in the Environment Division 
(other than the assign to clause), and any input/ 
output statements in the Procedure Division which are 
contrary to the file's specifications. 

The files created on or for the system units are always 
Type 3 when the system units are not assigned to unit- 
record equipment. 

System Input Unit 

Records read from the system input unit ( s.smi ) are 
available in the buflFer provided by the Input Editor. 
All references to records in this file are to the record 
in this buffer area. The user must determine whether 
the current record is bcd or binary. 

The object program will execute the at end portion 
of the READ statement for s.sini whenever $ appears 
as the first character of a physical record on this unit. 



Normally, this signifies the appearance of a system 
control card on the system input file. If, however, it is 
possible for the user's file to legitimately contain rec- 
ords with $ as the first character of the record, the user 
must determine, by interrogating other fields in the 
record, whether this is one of his records, or a system 
control card. In the former case, more read statements 
may be executed for the file. In the latter, a close state- 
ment must be executed. This will cause the last card 
to be the next card available to the system. 

For a file on s.sini, processing of the file should be 
terminated on the basis of an at end indication, rather 
than on the basis of having processed the last input 
record. 

System Output Unit 

Records for a file assigned to the system output unit 
( s.soui ) are processed through the Output Editor. The 
compiler generates a single 22-word work area for all 
records of this file. All references to fields within these 
records result in references to locations in this work 
area. A write statement causes the Output Editor to 
move the record from the work area to the output 
buffer. The record is never available in the buffer. 
Records for a file on s.soui must be bcd and are assumed 
to be intended for listing. 

System Peripheral Punch Unit 

Records for a file assigned to the system peripheral 
punch unit (s.sppi) are processed through the Punch 
Editor. The compiler generates a sirigle 28-word work 
area for all records of this file. All references to fields 
within these records result in references to locations in 
the work area. A write statement causes the Punch 
Editor to move the record from the work area to an 
output buffer. The record is never available in the out- 
put buffer. 

It is possible to intermix bcd and binary records 
on a s.sppi file. An indication is given to the Punch 
Editor that a logical record is binary if at least one 
USAGE IS computational clausc appears in the descrip- 
tion of the record under the fd entry for the file. In the 
absence of a computational (i.e., binary) field in the 
record, it is assumed that the record is to be punched 
in BCD mode. 

COBOL Library Subroutines 

The 7040/7044 cobol Compiler is designed to minimize 
storage requirements by using a number of common 
subroutines for character handling and parameter 
analysis. In all subroutine calling sequences that 
include an address reference, a standard cobol ad- 
dress parameter is used. This address parameter takes 
one of the following forms: 

PZE location„byte 
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The above form is used when the data item is in 
working storage. 

MZE bl„sp+nnn 

The above form is used when the data item is located 
by a base locator ( base = first word of the record in the 
buffer), bl is the address of the base locator (first 
word of the file control block), sp + nnn is the address 
of the word containing the item's relative location from 
the base (word displacement in the address, byte dis- 
placement in the decrement) . 

MON pi 

The above form is used when the data item is located 
by a positional indicator, which contains the effective 
address of a subscripted variable, pi is the reference to 
the particular indicator. 

PON no. of characters„character 

The above form is used in move all "character" to 
field. The actual character to be moved is in byte 2 of 
the parameter. 

PON character 

The above form is used to compare each all "char- 
acter." The actual character is in byte 5 of the address 
parameter. 

The evaluation of the effective address for an item 
located by a base locator or a positional indicator is 
done by the locator analyzing subroutine, cblan. This 
routine is entered by a tsl cblan with the address 
parameter in the AC. When cblan returns to the calling 
subroutine, the ac] contains the effective address and 
byte of the data item. 

The common character-handling subroutine? are 
PCSTAB, ccsTAB, and SACTAB. Thcsc are used, for exam- 
ple, by the compare, move, and examine subroutines, 
and assume initialization of a work area and an index 
register to point to the character to be handled, pcstab 
assumes that a work area, cafld, contains the address 
of the word containing the character to be obtained 
and that index register 1 contains the byte number. 
CCSTAB and sactab assume that cbfld and index regis- 
ter 2 contain the corresponding information. All three 
routines contain instructions to increment the word 
address and reinitiaHze the index register when neces- 
sary. In order to fetch a character, assuming all initiaH- 
zation has been done, the instruction used is: 
XEC PCSTAB,! 

CAFLD and CBFLD are among a group of one-word 
work areas defined as entry points within a separate 
deck in the library. These entries are referred to by 
many of the subroutines and, in addition, may be re- 
ferred to by in-line coding. 

Other items defined within the deck are: 
O.AC an arithmetic subroutine source area 

C.MQ an arithmetic subroutine source area 



, CACHLD an arithmetic subroutine work area 

CMQHLD an arithmetic subroutine work area 

TALLY ^ special register that may be altered by the 

EXAMINE verb or referred to by other source 

language statements 
WORK used as a switch by MOVPAK or C.COMP 

CO FLO the COBOL size-error switch 

COFLOW a subroutine to set C.OFLO on and return to 

the in-line routine 
C.ERR a subroutine to call S.SDMP if execution of a 

program containing a serious compilation 

(source) error has been attempted. 

The group of arithmetic areas above and the c.oflo 
switch are referred to by most of the arithmetic subrou- 
tines. The c.oflo switch is tested to determine if a 
SIZE ERROR option is to be executed. It is set on for all 
arithmetic overflows and for floating-pqint errors (in 
exponentiation only ) . 

MOVPAK Routine 

MOVPAK is a generalized routine, or actually a group of 
subroutines, which is called upon by the object pro- 
gram for movement, conversion, and editing of data. 
The routine has four major entry points and numerous 
minor entry points. A tsx to one of the major entry 
points is always followed by one or more txis to minor 
entry points, except when moving figurative constants. 
The following is a description of the calling se- 
quences for the four major entry points in movpak: 

TSX C.MOVE,4 

source address reference 
target address reference 
( begin specific move call ) 

The c.MOVE entry uses the source and target address 

reference information to set the contents of the cafld 

and CBFLD locations. Control is then transferred to the 

subsequent string of instructions to perform the move. 

TSX C.MOVl,4 

target address reference 
( begin specific move call ) 

The c.Movi entry is used when no source address 
is necessary, or when the source field is in an arith- 
metic register. 

TSX C.MOV2,4 

source address reference 
( begin specific move call ) 

The C.MOV2 entry is used when the resultant field 
is to be left in an arithmetic register. 

TSX C.MOV3, 4 

( begin specific move call ) 

The C.MOV3 entry is used when both the source 
and target addresses are set up in-line. 

Following the tsx instruction and associated address 
parameter(s), the specific move call consists of one or 
more txi instructions, with one exception, where only 
a control word is used (see "chan" below). Some of 
the calls are fixed length; other calls are terminated by 
a TXI instruction which transfers control to a particular 
location. 
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AN Alphanumeric Field (ALPHABETIC, ALPHA- 

NUMERIC, non-report, or group item) 

RP Report Field (the PICTURE clause contains 

editing characters) 

XD External Decimal (NUMERIC DISPLAY) 

ID Internal Decimal (NUMERIC COMPUTA- 

TIONAL and SYNCHRONIZED RIGHT) 

IN Internal Decimal (not SYNCHRONIZED 

RIGHT) 

The following are figurative constants: 

SP SPACES 

ZE ZEROS 

CH Characters (this category includes ALL literal, 

QUOTE, HIGH-VALUE, and LOW-VALUE 
constants ) 

Literals are classed as an or id, whichever is ap- 
propriate. 

The following movpak subroutine calls are given in 
alphabetical order by the abbreviated representations 
for the type of source and target fields. The order is 
AN, CH, ID, IN, RP, SP, XD, and ZE. For example, the move 
from Internal Decimal to External Decimal is desig- 
nated by the letters idxd. Combinations other than 
those given are not permitted. 

AN AN: Moves of an fields are handled by generated 
in-line instructions if the jalioves are simple, but more 
complex cases are handled by one of the following 
calls: 

Move without trailing spaces — 

TXI C.ANl, 1, number of characters 

to move 

Move with trailing spaces— 

TXI C.AN2, 1, number of characters 

to move 

TXI C.AN3, 1, number of spaces to 

insert 

ANID, ANIN, ANRP, ANXD: Substitute xd for an; 
then see the equivalent section. 

CHAN: Only the following control word is used for 
this operation: 

PON number of characters, , character 

The actual character to be inserted is in byte 2 of the 
control word. 

WAN: See "idxd." 

WW: MOVPAK is not used. In-line decimal-alignment 
instructions are generated as appropriate. 

JDZN:( See "idid" first.) 

TXI C.IDIN, 1, character length of 

target 

The source field is in the accumulator or in the ac-mq. 
Character length of target is the smallest multiple of 
six bits that is sufficient to contain the defined Internal 
Decimal field and its sign. 
/DRP;( See "idid" first.) 

TXI C.IDRP, 1, number of digits to 

convert 



This instruction is followed by one or more instruc- 
tions from the Report Field txi instruction set described 
below. The particular instructions used reflect the 
characters constituting the field's picture clause. 

The members of the Report Field instruction set are: 

TXI C.R999, 1, number of consecu- 

tive 9 occurrences 

TXI C.RZZZ, 1, number of consecu- 

tive Z occurrences 

TXI C.RAAA, 1, number of consecu- 

tive * occurrences 

TXI C.ROOO, 1, number of consecu- 

tive O occurrences 

TXI C.RBBB, 1, number of consecu- 

tive B occurrences 

TXI C.RSIN, 1, cl + 64*c2 

The character cl is inserted if the sign of the field is 
plus, and the character c2 is inserted if the sign of the 
field is minus. 

TXI C.RSIG, 1, c3 + 64*c4 

The character c4 is inserted if no preceding signifi- 
cant digit has been inserted, and the character c3 is 
inserted if a preceding significant digit has been in- 
serted. If a TXI c.RFLS instruction ( described next ) has 
been executed and the floating sign has not yet been 
inserted, the character actually inserted is c4, c5, or c6. 

TXI C.RFLS, 1, c5 + 64*c6 

c5 is the floating-sign character that is ultimately in- 
serted if the sign of the field is plus, and c6 is ultimately 
inserted if the sign of the field is minus. If the first digit 
value is zero, a blank or the appropriate choice of c5 
or c6 is immediately inserted as a result of this txi in- 
struction. Note that the first floating-sign position is 
traversed by this txi instruction. 

TXI C.RFFF, I, number of consecu- 

tive floating-sign oc- 
currences 

The above coding is used when other floating-sign 
positions are to follow. 

TXI C.RFFQ, 1, number of consecu- 

tive floating-sign oc- 
currences 

The above coding is used when no other floating-sign 
positions are to follow. 

TXI C.REFC, 1, number of consecu- 

tive floating-sign oc- 
currences 

The above coding is used when no other floating-sign 
positions are to follow, but there is a comma before the 
next digit. 

Values that cl and c2 can assume as character pairs 
are: 

cl: + blank blank blank blank blank . $ 
c2: - - C R D B . $ 



Values that c3 and c4 can assume as character pairs 
are: 
c3: , 
c4: , blank * 

Values that c5 and c6 can assume as character pairs 
are: 

c5: + blank $ 
c6: — - $ 

The report image txi string is terminated by: 
TXI C.RQIT, 1, value 

where value = 0, unless the field is to be blank when 
zero, in which case value is equal to the total length of 
the target field. 
Example 1: picture is $$$,$$$.99 is handled by: 

TXI C.RFLS, 1, c5=c6 = $ 

43+64*43 
TXI G.RFFF, 1, 2 

TXI C.RSIG, 1, c3= , 

59+64*48 c4=blank 

TXI C.RFFQ, 1, 3 

TXI C.RSIN, 1, cl = c2 = . 

27+64*27 
TXI C.R999, 1, 2 

TXI C.RQIT, 1, 

Example 2: picture is zzz,zzz.zz+ is handled by: 

TXI C.RZZZ, 1, 3 

TXI C.RSIG, 1, c3= , 

59+64*48 c4= blank 

TXI C.RZZZ, 1, 3 

TXI C.RSIN,!, cl = c2=. 

27+64*27 
TXI C.R999, 1, 2 note choice of 

C.R999 
TXI C.RSIN, 1, cl = + 

16+64*32 c2=- 

TXI C.RQIT, 1,11 note blank 

when zero 
option 

IDXD: (See "idid" first.) The Internal Decimal con- 
tents of the accumulator or the ac-mq are converted 
to External Decimal by one of the following calls: 

TXI C.IDXl, 1, number of characters 

to develop 

TXI C.IDX3, 1, number of characters 

to develop 

where c.roxs is used if the target field is signed. 

IN AN: See "inid," then apply "idan." 

INID: (Apply "idid" after the following. ) 

TXI C.INID, 1, character length of 

source 

The results are left in the ac or ac-mq. Character 
length of source is the smallest multiple of six bits sufii- 
cient to contain the defined Internal Decimal field and 
its sign. 

ININ: See "inid," then apply "idin." 
INRP: See "inid," then apply "idrp." 



INXD: See "inid," then apply "idxd." 

RPAN: See "anan." 

SPAN; See VcHAN." 

SPRP: See "chan." 

SPXD: See "chan." 

XDAN: See "xdxd." 

XDID: (Apply "idid" after the following. ) 

TXI C.XDID, 1, number of charac- 

ters to convert 

This subroutine converts data from External Decimal 
to Internal Decimal and leaves the results in the ac- 
■ cumulator or in the ac-mq. The sign of the source field 
is assumed to be over the low-order digit. The absence 
of a sign is treated as denoting plus. Leading spaces 
appearing in the source field are treated as zero. 

XDIN: See "xdid," then apply "idin." 

XDRP: 

TXI . C.XDRP, 1, 

This instruction is followed by one or more instruc- 
tions from the External Decimal txi instruction set (see 
"xdxd" for a definition of this set ). 

TXI C.XDRQ, 1, number of digits 

developed for tar- 
get field 

This instruction is preceded by the above-mentioned 
External Decimal txi string and is followed by one 
or more instructions from the Report Field txi 
instruction set (see "idrp" for a definition of this set). 
As with idrp, the calling sequence is terminated by 
TXI c. RQiT, 1, value. 

XDXD: 

TXI C.XDXD, 1, target sign con- 

vention 

Target sign convention is if the target field has 
no sign provision; it is 2 if the target field always has 
a sign over the low-order digit. 

This instruction is followed by one or more instruc- 
tions from the External Decimal txi instruction set. The 
particular instructions used represent a procedural 
method for construction of the proper string of digits 
for the target field. The members of the set are as 
follows: 

TXI C. MOV, 1, number of digits to 

move 
TXI C.NZT, 1, number of digits to 

test for non-zero 
TXI C.BYP, 1, number of digits to 

bypass 
TXI C.INZ, 1, number of digits to 

insert 
TXI C.XRND, 1, 

If non-zero significance is encountered under control 
of C.NZT, it causes c.oflo to be set to non-zero. 

C.XRND is used when rounding is desired at the 
current position. 
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Three alternate subroutine entry points, c.xmvs, 
c.NZS, and c.bys, correspond to c.mov, c.nzt, and c.byp. 
They are used instead when there may be a sign over 
the last digit treated by the instruction. 

The instruction string is terminated for xdxd moves 
by: 

TXI C.XDXQ, 1, number of digits 

developed for tar- 
get 

Example 1: The statement compute a rounded = b, 

ON SIZE ERROR. . . (whcrC a's PICTURE IS S999V999 and b's 

PICTURE IS S9V9 ) results in: 



TXI 


C.XDXD, 1, 2 


TXI 


C.NZT, 1, 2 


TXI 


C.MOV, 1, 2 


TXI 


C.XRND, 1, 


TXI 


C.BYS, 1, 2 



Note choice of 
C.BYS for sign 
switch 
TXI C.XDXQ, 1, 2 

Example 2: The statement move a to b ( where a's 
PICTURE IS S9V99 and b's PICTURE IS V9999 ) rcsults in: 



TXI 


C.XDXD, 1, 


TXI 


C.BYS, 1, 1 


TXI 


C.MVS, 1, 2 


TXI 


C.INZ, 1, 2 


TXI 


C.XDXQ, 1, 4 



ZEAN: See "chan." 

ZEID: See "chan," then apply "inid." 

ZEIN: See "chan." 

ZERP: A sufficient number of zero digits is provided 
by generated in-line instructions which place zeros in 
one or more temporary storage words. The move is 
then performed as if it were xdrp. 

ZEXD; See "chan." 

Compare Subroutine 

The linkage is: 

TSX C.COMP, 4 

COBOL address parameter (first operand) 

COBOL address parameter (second operand) 

Length parameter 

Transfer parameter 

The length parameter takes the form: 

bitO-On if COLLATE MACHINE-SEQUENCE specified 

bit 1— On if first operand longer than second operand 

bit 2— On if second operand longer than first operand 

bits 3-17-Difference in length between first and second operand 

bits 21-35— Length of shorter operand 

The transfer parameter takes the form: 



pfx 



transfer address 



where: 



pfx 

= PTW if testing for first equal to second operand 
= MZE if testing for first greater than second operand 
= PON if testing for first less than second operand 
= MON if testing for first not equal to second operand 
= PTH if testing for first not greater than second operand 
= MTW if testing for first not less than second operand 



Display Subroutine 

Except for debugging sections, the linkage is: 
TSX , C.TYPE, 4 
COBOL addr.ess parameter 
Length parameter 



If more than one area is to be typed, an additional 
pair of address and length parameters is used for each 
additional area. 

The length parameter is of the form: 
pfx n 

where: 



pfx 



= PZE if the item is not the last one to be typed 
= MZE if the item is the last one to be typed 

= the length of the item in characters 

Within debugging sections, the linkage is: 

TSX C.DUMP, 4 

Dump parameter 
COBOL address parameter 
Length parameter 



The form of the length parameter is the same as 
described for the c.type linkage. 

The dump parameter is of the form: 
pfx dump, , marker 

where: 



pfx 

= MZE if a marker is to be written on a specified output file 

= PZE if no marker is to be written 

dump 

= if the displayed information is to be written on the sys- 
tem output unit (S.SOUx) 
7^ if the displayed information is to be written on an alter- 
nate output unit (S.SUxx) 

marker 

= if the requested marker is to.be written on the system 

output file 
7^ if the requested marker is to be written on an alternate 

output file 

Examine Subroutine 

The linkage is: 

TSX C. EXAM, 4 

COBOL address parameter 
Examine parameter 

The examine parameter is of the form: 

bit - On if TALLYING requested 

bits 3-17 — The length in bytes of the field to be examined 

bits 18-23 — The character to examine for 

bits 24-29 - The character to replace with ( if not replacing, the 
same as bits 18-23 ) 

bit 32 — On if a signed numeric display field is being ex- 
amined for a numeric character (0-9) 
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bits 33-35 — An indication of the condition controlling the ex- 
amination 

= Is if REPLACING FIRST 
=28 if LEADING 
= 38 if ALL 

=48 if UNTIL FIRST without REPLACING 
= 58 if UNTIL FIRST with REPLACING 

This routine scans a field, counting or replacing char- 
acters as necessary. 



Add Subroutine 

The linkages are: 



TSX 



C.ADD1,4 



TSX 

TSX 

TSX 
TSX 



C.ADD2,4 

C.ADD3,4 

C.ADD4,4 
C.ADD5,4 



Add C.AC-C. MQ 
to AC-MQ 
Add C.AC-C.MQ 
to AC 

Add C.MQ to 
AC-MQ 

Add C.MQ to AC 
Add double-preci- 
sion number to 
AC-MQ 
COROL address parameter 

TSX C.ADD6,4 Add single-preci- 

sion number to 
AC-MQ 

COBOL address parameter 

TSX C.ADD7,4 Add double-preci- 

sion number to AC 

COBOL address parameter 

TSX C.ADD8,4 Add single-preci- 

sion number to AC 
COBOL address parameter 

The resulting sum is always placed in the ac-mq, 
with the low-order portion in the mq. 

Subtract Subroutine 

The linkages are: 

TSX C.SUB1,4 Subtract C.AC-C. 

MQ from AC-MQ 

TSX C.SUB2,4 Subtract C.AC-C. 

MQ from AC 

TSX C.SUB3,4 Subtract C.MQ 

from AC 

TSX C.SUB4,4 Subtract C.MQ 

from AC 

TSX C.SUB5,4 Subtract double- 

precision number 
from AC-MQ 

COBOL address parameter 

TSX C,SUB6,4 Subtract single- 

precision number 
from AC-MQ 

COBOL address parameter 

TSX C.SUB7,4 Subtract double- 

precision number 
from AC 

COBOL address parameter 

TSX C.SUB8,4 Subtract single- 

precision number 
from AC 

COBOL address parameter 

The resulting difference is always placed in the 
AC-MQ with the low-order portion in the mq. 



Multiply Subroutine 

The linkage is: 

^ TSX C.MPYn 

COBOL address parameter 
where: 

n 

= 1 if the multiplicand is in the MQ and the multiplier is 

double precision 
= 2 if the multiplicand is in the AC-MQ and the multipher 

is double precision 
= 3 if the multiplicand is in the AC-MQ and the multiplier 

is single: precision 

If the resultant product exceeds a double-precision 
number, it is saved in a four-word work area, c.mres, 
and a switch, c.ofls, is set. However, if c.ofl2 had been 
previously set (and not restored), the normal over- 
flow switch, c.OFLO, is set. If the resultant product is a 
single- or double-precision number, it is left in the 

AC-MQ. 

Divide Subroutine 

The linkage is: 

TSX C.DIV1,4 if AC-MQ/CAC-C.MQ 

TSX C.DIV2,4 ifAC-MQ/C.AC 

TSX C.DIV3,4 if MQ/CAC-C.MQ 

The resultant quotient only is returned in the ac-mq, 
and the remainder is not retained. 

Exponentiation Subroutine 

The linkage is: 

TSX CXPab 

VFD 6/c, 6/d, 6/e, 18/0 

where: 

a 

= N if the object computer has floating-point capabilities 

= F if the object computer lacks floating-point capabilities 
b 

= 1 if C.MQ ** AC 

= 2 if C.MQ ** AC-MQ 

= 3 if CAC-C.MQ ** AC 

= 4 if CAC-C.MQ ** AC-MQ 

c 

= the number of decimal positions desired in the result, 
d 

= the number of decimal positions desired in the base, 
e 

= the number of decimal positions desired in the exponent. 

The exponentiation subroutine first scales the source 
fields, depending on the number of decimals, and then 
converts the input into double-precision floating-point 
form. The result is converted to fixed-point form and 
scaled to give the desired number of decimal positions. 
It is returned in the ac-mq. In all cases, a maximum of 
15 digits will have mathematical significance. 

Round or Truncate Subroutine 

The linkage is: 



AXT 
TSL 



n,4 
name 
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where: 

n 

= the power of ten by which the AC-MQ or a four-word 
area, C.MRES, is to be divided (l<n<20). 

name 

= C.TRUN if the remainder of the division ^s to be ignored. 
= C.RND if the remainder of the division is to be tested to 

determine if the quotient should be increased. 
= C.TRN2 if the quadruple-precision result of a previous 

multiplication in C.MRES is to be scaled down. 
The round or truncate subroutine is used to adjust 
the number of decimal positions in a. number. The re- 
sult is left in the ac-mq. 



Scale Subroutine 




The linkage is: 




AXT 
TSL 


n,4 
C.SCLx 



where: 

n 

= the power of ten by which the MQ or AC-MQ is to be 
multiplied (l<n<20). 

X 

= 1 if the value is in the AC-MQ 
= 2 if the value is in the MQ only 

The primary use of the scale subroutine is in adjusting 

the number of decimal positions in a number before 

using the number in another computation or as output. 

The result is left in the ac-mq. 



IF Alphabetic Subroutine 

The linkage is: 

TSX / C.IFAL,4 

COBOL address parameter 

pfx transfer address„n 

where: 

pfx 

= PZE for transfer if field is alphabetic 

= MZE for transfer if field is not alphabetic 
n 

= the length, in bytes, of the field to be tested 

This subroutine tests whether all characters of a field 
are alphabetic ( including blanks ) . 

IF Numeric Subroutine 

The linkage is: 

TSX C.IFNM,4 

COBOL address parameter 
pfx transfer address„n 

where: 

pfx 

= PZE for transfer if field is numeric 

= MZE for transfer if field is not numeric 
n 

= the length, in bytes, of the field to be tested 

This subroutine tests whether all characters of a 
field are numeric. If the field has a plus or minus sign 
on the last character, it is considered to be numeric. 
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Subroutine Library 



Format 

The Subroutine Library consists of two sections in the 
System Library located, in the distributed version, 
between Sections 1 and 2 of the Loader (ibldr). The 
System Editor may be used to place one or more sub- 
routines elsewhere in the System Library, such as on 
a separate library unit. The first section contains two 
lists: 

The Subroutine Name Table (SRNT): This table is 
a list of all real control section names appearing in the 
Subroutine Library. Each control section name ap- 
pearing in the list must be unique. Associated with 
each entry in the Hst is a number (the subroutine 
index) of the subroutine in which this control section 
appears and, if other routines are dependent upon 
this control section, a position in a second list (the 
Subroutine Dependence Table). The srnt is in alpha- 
betical order. 

The Subroutine Dependence Table (SRDT): This 
table contains, for each entry in the Subroutine Name 
Table that has a dependency list, a list showing the con- 
trol sections that must be loaded for execution of this 
control section. Therefore, a given control section is 
said to be dependent upon those control sections whose 
names appear in the corresponding portion of the 
dependence list. 

The second section of the Subroutine Library con- 
tains the program decks for all library subroutines. 

Figure 38 shows the format of the Subroutine Li- 
brary. In the figure, iblib is the name of the header 
record, szsrnt is the size of the Subroutine Name 
Table (srnt), szsrdt is the size of the Subroutine 
Dependence Table, srnAd is the name of the srnt/srdt 
record, and ibrel is the name of the relocatable deck 
record. 

The logical record of srnt/srdt contains the srnt 
and SRDT tables. 

In the SRNT, there is one entry for every real control 
section file and entry point in the Subroutine Library. 
The table is sorted alphabetically. Each entry consists 
of two words: 



Block 1 



BCI 

pfx 



1, name 
pt, , srn 



where: 
name 

=the name of the control section, 
pfx 

= PZE if a dependency list is associated with this name and 

starts in the decrement. 
=PON if a dependency list is associated with this name and 

starts in the address. 
= MZE if no dependency list is associated with this name. 



Block 2 



Block 3 



Block n 



Block n + 1 



Block n + 2 



Block n-t-m 



BCI 


1, IBLIB 


PZE 


SZSRNT, ,SZSRDT 


MZE 







BCI 


]. SRNAD 1 




PZE 









PZE 





• 




MZE 







BCI 


1, IBREL 




PZE 









PZE 









MZE 






Logical 
Record of 
SRNT and 
SRDT Tables 



Logfcol 
Record of 
the Program 
Decks 



Figure 38. Format of the Subroutine Library 
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pt 

= ah address of a word in SRDT (relative to the start of that 
table) that contains the first word of the dependency list 
associated with this name. 

srn 

=the number of the subroutine in which the named section 
is a real control section. 

The SRDT contains information for virtual sections 
in the Subroutine Library decks. A dependency list 
exists for each entry in srnt that is a real section in 
a program deck that also contains external sections. 
Every entry in the dependency Hst, for which a de- 
finition exists in the Subroutine Library, gives the 
address of an entry in the srnt. If no definition exists 
in the Subroutine Library, the address is equal to zero. 
Every word in srdt has the following format: 



17 18 20 21 



35 



opi 



ki 



opi+1 



ki + 1 



where: 



op 



= PZE if this is the start of a dependency list. 
= PTW if the dependency list is continued. 
= MZE if this is the end of dependency list. 

k 

7^ if it is the location + 1 ( relative to the start of SRNT ) 

that contains the definition of this section. 
= if no definition exists in the Subroutine Library. 

The logical record of program decks for the Sub- 
routine Library consists of card image records of all 
decks in the Subroutine Library. Each deck starts with 
a $iBLDR record that contains the deck name in columns 
8-13 and ends with a sdkend record also containing 
the deck name. The blocking factor for the Subroutine 
Library is 10 records (card images) per block; the 
logical record size is 28 column binary words for the 
text and the dictionary of 14 alphameric code words 
for control cards. Each block, except for the last, has 
a final pze word. The last block has a standard mze 
flag word. 
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Debugging Processor 



The Debugging Processor, which handles requests for 
load-time debugging, consists of three major parts: 
the preprocessor, the object-time routines, and the 
postprocessor. The preprocessor scans the $ibdbl card, 
compiles all of the debug requests, and creates the 
/debug deck. The /debug deck is loaded into upper 
core storage at object time to perform the debug re- 
quests. The postprocessor edits and translates the de- 
bugging dumps into a meaningful listing. Figure 39 
shows the sequences in a generalized block diagram 
form. 



Preprocessor 

The preprocessor is divided into two sections. Section 
1 consists of the phases ibdlva, ibdlvb, and ibdlvc. 
Section 2 consists of the phases defa and ibdef. 

After all source decks in the ibjob application have 
been processed, the smnBL card causes control to be 
transferred to the preprocessor. Input to section 1 



(debug compiler) of the preprocessor comes from the 
system input unit. Output from section 1 consists of 
data to be used as input to the second section (creation 
of /debug deck) and data to be written on the d^bug 
work unit (dwu) for use by the postprocessor. 

The initialization section assigns table space and 
processes all of the information from the $ibdbl card. 
The main workload is handled by the debug compiler, 
which scans the debug source language statements, 
builds various tables to be left in core storage for sec- 
tion 2, and creates the debug request-point table. All 
counters and constants are initiahzed during this 
process. The sdend card terminates this procedure. 

At this point, a special ddict for the /debug deck, a 
list of subroutines not necessary for this application, 
debugging text, and constants are written onto scri. 
The DDICT is created from symbols defined by =new 
in NAME statements. The messages encountered within 
quotation marks in list and dump statements are written 
onto the dwu. Control is then transferred to section 2. 



S.SINIV Input 





Secfion 1 compiles 
debug requests 



Section 2 

creates 

/DEBUG deck 



Debug 

Subroutine 

Library 



S.SLBl 
Preprocessor 

Figure 39. Debugging Processor 



Output 



S.SOUl (or 
alternate 
if $OEDIT) 



Output / S.SOUl, FIL06, 
Dump Marker / or file specified 
by user 



DWU / S.SCKl or specified 

Input / utility unit 




S.SCKl 
or 
specified utility unit 




New Load File 



Work Unit 3 



Blank Common 



Buffers 



Pool Control Words 



/DEBUG Deck 



Object Program 



File Control Blocks 



Available 
I Memory 



IOCS 



Debug 

Postprocessor 

Editor 



Debug 

Postprocessor 

Translator 



Output 



Object Time 



S.SOUl 
Postprocessor 
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Whe function of section 2 of the preprocessor is to 
prepare a new load file and to prepare additional in- 
formation for use by the postprocessor. Section 2 com- 
pletes the tables built by section 1. It fills in information 
about names and values from the ddicts, reading first 
from SCRI if there were symbols defined by =new, next 
from the load file, and then from any remaining binary 
decks that follow the debugging requests and precede 
a SENTRY card ( or sendch if this is a chain job ) on the 
system input unit. The DDiCTSand end^of-hnk indicator 
records are copied onto the dwu. The object decks, fol- 
lowed by newly created /debug decks (one for each 
link), are written in the new load file. 

The /debug deck is created from information left on 
scRi and tables left in core storage by section 1 and 
from information contained in ibdinz, which must be 
the first deck in the Debug Subroutine Library ( iedbg ) . 
ibdinz contains all the object-time routines, each de- 
scribed as a control section. Any unnecessary sections 
are ignored; only those sections pertinent to the cur- 
rent run are used. 

Tables contain virtual references ( plus adjustments ) 
to deck name entries and real sections in object decks. 
This permits references within the debugging routines 
to decks that are being debugged. ( The evaluation of 
virtual references to deck name entries made in the 
/debug deck differs from that of similar references in 
object decks. Adjustments must be made to account for 
even pseudo-operations and deleted real sections.) 

Almost all tables used by the preprocessor occupy a 
common table area. If the tables overflow this area, the 
debugging request package should be shortened (e.g., 
by reducing the number of name statements or the 
number of continuation cards for the statement being 
processed when the overflow occurred ) . 

The /debug deck is positioned in upper core storage 
just below the buffers and pool control words. 

Debug Assembly Parameters 

If the TRAP MAX or line max assembly parameters are 
to be changed by a user, he must update and reas- 
semble the first section of the preprocessor (deck 
ibdlva) and then edit section 1 (binary decks ibdlva, 
ibdlvb, and ibdlvc ) into the System Library. The sym- 
bolic instructions to be changed are tmax and lmax. 
The assumed dwu may be changed by re-editing sec- 
tion 1 with a new $file card for the dwu file. 

If the user's computer is not equipped with the 
single-precision floating-point instruction set, the as- 
sembly parameter fltsw in the postprocessor phase 
ibtran must be set as follows: 

MZE ** 

The phase must then be reassembled and edited into 
the System Library. 



Format of the DDICT 

The debugging dictionary, requested by either dd or 
SDD on the appropriate $ card, is always headed by a 
SDDiCT card. The rest of the dictionary consists of 
binary cards having two words for control and check- 
sum information (see "Binary Card Format") and 22 
words for dictionary entries. A dictionary entry may 
be contained on more than one card. The debugging 
dictionary follows the control dictionary in ibmap 
output. 

Each entry in ddict is from one through three words 
in length. Mode changes that occur at a location for 
which there is no associated symbol will cause a one- 
word entry in the following form to be placed in ddict: 






X 


m 





m 


value 



12 3-17 18-20 21-35 

The X will be if the value is relative, 1 if it is 
absolute. The m is the four-bit mode designator. The 
m, in octal, may be one of the following: 

00 = octal 

01 = symbolic 

04 = logical 

05 = fixed-point 

06 = alphameric 

07 = floating point 

16 = double-precision 

17 = complex 

A symbol having no dimensions will cause the gen- 
eration of the following entry:' 

12 3-17 18-20 21-35 







value 



symbol 



where x, m, and value are as above, and symbol is 
the BCD representation of the symbol. 

A relative symbol having one dimension will cause 
the generation of the following entry: 






1 


...,...z... 


3-17 


18-20 


21-35 


1 





* in-,v 


1st dim 


m 


value 


symbol 



where 1st dim is the dimension. 

A relative symbol having two or three dimensions, or 
an absolute symbol having one, two, or three dimen- 
sions results in the following entry: 

12 3-17 18-20 21-35 



1 


1 \ 


m 


Isl dim 


m 


value 


symbol 





2nd dim 


X 


3rd dim 



0-2 



3-17 



18-20 



21-35 



where x is if the value is relative, 1 if absolute. The 
3rd ( and 2nd ) dimension will be zero if not applicable. 
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Objecf-Time Routines 

The object-time routines, along with tables and work 
areas generated by the preprocessor, make up the 
/debug deck. The routines necessary for object-time de- 
bugging are an initialization routine, the str supervisor 
that determines whether or not an str is the result of a 
debugging request, the interpretive routines that proc- 
ess the compiled debugging requests and perform the 
desired action, and a routine that executes the instruc- 
tion overlaid by the str. 

Control is transferred to the /debug initialization sec- 
tion immediately after the loading of each link. Be- 
sides initializing the /debug deck, this section saves 
the instructions at debug request points, inserts str 
instructions, and writes information on the second file of 
the Dwu. Control is transferred to the object program. 

Upon executing an str instruction, the str supervisor 
is entered. It saves all registers and machine conditions 
that may be destroyed by the interpretive routines and 
determines whether or not debugging has been re- 
quested at this location. If debugging has been re- 
quested, control is transferred to the debug request 
interpreter; otherwise, a terminal dump is taken. 

The debug request interpreter interprets computa- 
tional, testing, and dumping instructions as supphed 
to it by the debug compiler in the preprocessor. Since 
a wider range of functions may be performed by the 
interpreter than is required for a particular execution, 
the interpretive functions are coded in a modular 
fashion. All functions are represented by control sec- 
tions, and unneeded sections have been deleted by the 
preprocessor. 

Output information is written on the debug work 
unit using one of several logical records to describe the 
dump(s). When the debug request(s) has been satis- 
fied, control is passed to a routine that restores regis- 
ters and machine conditions, executes the instruction 
overlaid by the str, and returns to the object program. 



A terminal dump is taken if the instruction overlaid by 
the STR was an str or if it was an xec referring to an str. 

Postprocessor 

The postprocessor, divided into the editing and trans- 
lating sections, produces listings of object-time dumps 
from information previously written on the dwu by 
the preprocessor, by ibldr, and by the object-time 
routines. 

The editing phase transforms information from the 
first file of the dwu to appropriate internal tabular 
formats. The tables contain comment strings and as- 
signed information. The debugging dictionaries are 
matched against the absolute assignment form of the 
control dictionaries to produce final absolute values. 
Unnecessary entries are deleted to conserve space. The 
generated tables are left in core storage for use by the 
translator phase. If table overflow occurs during post- 
processing, the size and/or number of ddicts should 
be reduced. 

The translator sequentially processes the table and 
object-time dump records from the dwu to create the 
full debugging listing that appears on the system out- 
put file. 

These dumps appear in the same order as the str 
instructions executed at debugging request points. The 
dumps are identified by a number that corresponds to 
the object-time marker written on the output unit (if 
specified on the $ibdbl card). Each dump has an iden- 
tification line indicating the dump number, the sym- 
bolic request point, the dieck name, and the relative 
and absolute locations of the request point. Following 
this, the dump is listed in the format specified for it. If 
no mode has been specified (in the object-time output 
or in a debugging dictionary) for the locations dumped, 
they appear in octal mode. 

At the end of the translator phase, control is returned 
to ibsup by way of s.sret. 
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Appendix A. System Input And Output Editors 



The system Input and Output Editors are used by 
several system programs to read from the system input 
unit (s.siNx) and to write on the system output unit 
(s.soux) and the system peripheral punch unit (s.sppx). 
Both of these editors are used by the System Editor 
(iBEa)T); the system Output Editor is used by the 
Dump program. The routines are assembled into each 
system program that uses them; they are not available 
to the user in the Subroutine Library. 

The system Input and Output Editors call ioop for 
input and output operations and iols for end-of-reel 
procedures. Thus, the system programs incorporating 
the editors may overlay iobs. 

These editors can read or write Type 1 records on 
unit record equipment and Type 3 records on any 
device on which a blocked record can be written. 

Input Editor 

The calling sequence for the Input Editor is: 
TSX SYSIN,4 

*** (return) 

On the first call to the sysin routine, the routine ini- 
tializes itself to read Type 1 records from unit record 
equipment or Type 3 records from devices that can be 
blocked. 

Upon return from the sysin routine, the accumulator 
contains: 

pfx fword, , wdcnt 

where: 

pfx 

=PZE if a BCD card with other than a $ in column 1 was read 
=PON if a BCD card with a $ in column 1 was read 
= MZE if a binary card was read 

fword 

is the location of the first word of the card. 

wdcnt (the word count) 

is the number of words in the card. 

The calling sequence used to close the Input Editor is: 
TSL SYS52 

BRN SYSFR 

MSP SYSIN + 3 

If a $ control card was read ahead, it is placed in s.save, 
and s.scDi is set on. 

If a file mark is detected while reading from unit 
record equipment, the unit record equipment is imme- 
diately reselected. If a file mark is detected while 
reading a file that can be labeled, the Input/Output 
Labeling System is called for trailer label verification. 
If a lEOF trailer label is read, the following message 
is typed: 

10544 S.SIN lEOF 



A $STOP card is then simulated, and control is trans- 
ferred to S.SRET. 

Block Length: The block length for input files is 
preassembled as: 

SYBRL EQU 140 

Up to five column binary cards, or nine bcd cards may 
appear in one block. 

The first block control character in each block is 
examined to determine the mode for the next block. 
Subsequent block control characters are ignored. 

Error Conditions: If an error occurs while reading 
from s.siNi, the following message is typed together 
with the first six words of the block that was read in 
error: 

20543 S.SIN ERROR, (six words) 
The operator may press start to continue processing, 
ignoring the error. No error indication is given to the 
calling program. 

If a device is not attached to s.sini, the following 
message is typed: 

10545 S.SIN NOT ATTACHED 
A $STOP card is then simulated, and control is trans- 
ferred to S.SRET. 

Output Editor 

The caUing sequence for the Output Editor is: 
TSX SYSOU, 4 

pfx fword, , "wdcnt 

*** (return) 

where: 

pfx 

=PZE if a line is to be printed, preceded by a single space 
(block control character 2) 

= PON if a line is to be printed, preceded by a skip to a new 
page ( block control character 2 ) 

= PTW if a line is to be printed, preceded by a double space 
( block control character 6 ) 

= PTH if a line is to be printed, preceded by a double space 
and followed by a double space 

= MZE if a BCD card is to be punched (block control char- 
acter 2) 

= MON if a binary card is to be punched 

= MTW if a new subheading line is to be used (block con- 
trol character 2) 

= MTH if the system Output Editor is to be closed (block 
control character 4) 
fword 

is the location of the first word to be written out. 
wdcnt 

is the word count. If wdcnt is 0, only spacing or deletion 

of the subheading line will occur; no printing or punching will 

take place. 

On the first call to the sysou routine, the routine 
initializes itself to write Type 1 records on unit record 
equipment or Type 3 records on devices that can be 



blocked. The page count and the line count are 
initialized from s.pgct. The calling program should 
initialize the page heading, which may be up to 22 
words beginning at the location syshd. The routine 
examines locations s.soui and s.sppi to determine if 
the print and punch output are combined. 

If the end of medium is detected while writing on 
S.SOUI or s.sppi, the Input/Output Labeling System is 
called to switch units. 

When the Output Editor is closed, the last block on 
s.soui and s.sppi are truncated with the bcd look-ahead 
block control characters. The page count and the line 
count are saved in s.pgct. 

Paging: The listing page length is assembled as: ' 

SYPCT EQU 58 

Pages are ejected and page numbers incremented on 
each call to eject a page, on each call to use a new 
subheading line, and each time a page overflow occurs. 
Page numbers and line counts appear in the address 
field of locations sys22+i and sysm, respectively. These 
may be modified by the calling program. 

Block Length: The block length for output files is 
preassembled as: 



SYBLL 
SYBCL 



EQU 
EQU 



150 
150 



Up to seven 'print lines may be written on s.soui; 
seven column binary card images or 13 bod card 
images may be written on s.sppi. If the print and punch 
output are combined, up to five column binary card 
images or 11 bcd card images may be written on s.soui. 

Note that the first block on s.soui or s.sppi is always 
in BCD. If the first call for s.soui or s.sppi is for a 
column binary card image, a special three-word. Type 
3, P-( ignore) mode switch block is written. 

Error Conditions: If an error occurs while writing 
on s.soui or s.sppi, one of the following messages is 
typed together with the first six words of the block that 
follows the block written in error: 

ERROR, ( six words ) 

ERROR, ( six words ) . 

The operator may press start to continue. No error 
indication is given to the calling program. 

If a device is not attached to s.soui, the following 
message is typed: 

10545 S.SOU NOT ATTACHED 

A $STOP card is then simulated, and control is trans- 
ferred to S.SRET, 



20543 
20543 



S.SOU 
S.SPP 
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Appendix B. 7040/7044— 1401 Auxiliary Programs 



Reassembly of the 7040/7044-1401 
Auxiliary Programs 

The 7040/7044-1401 auxiliary programs, as distrib- 
uted, are assembled for an ibm 1401 Data Processing 
System with 4,000 positions of core storage. These 
programs may be easily reassembled for a 1401 with 
greater storage capacity, if such is available, to allow 
a larger maximum blocking factor for the tape files 
accepted or produced by the programs. Depending 
upon the blocking specified for the associated 7040/ 
7044 system input/output files, this increased maxi- 
mum blocking factor can result in greater operating 
efficiency for a particular 7040/7044 installation. 

The reassembly for each of the programs involves an 
expansion of one or more input/output buffer areas 
and a change in the. maximum blocking-factor con- 
stants. Specific procedures for each program follow. 



date ten bcd card records (90 characters each), six 
BCD print records ( 138 characters each), or five binary 
card records (174 characters each). This factor can be 
increased to allow for as large a tape record as desired, 
provided that the reassembled object program does 
not exceed the storage capacity of the object machine. 

MAP Symbolic Update Program 

The 1401 Autocoder statements that must be changed 
in order to reassemble the 7040/7044 - 1401 map Sym- 
bolic Update Program for a larger-than-4K 1401 are 
specified in the distributed version of the program as 
follows: 

Page No.lQiZj 
I 2 



Line 



5.0. 



Label 



OU.T.P.U.T. 



Operation 
20 



D.A, 



_2S_ 



l.x.4.y,Q. 



OPERAK 



Input/Output Utility Program 

The 1401 Autocoder statements which are to be 
changed in order to reassemble the 7040/7044 - 1401 
Input/Output Utility Program for a larger-than-4K 
1401 are specified in the distribution version of the 
program as follows: 

















Page No.lfliil 
" 1 2 


Line 

i 5 


Label 

6 


15 


Operation 

16 20 


21 


25 


30 


OPERAN 

35 40 ) 


o,a. 


M.A.X.B.P. ,,,..!_ 


h,c,w, , 


liOi II.... II...' 



The operand in columns 21 and 22 of this statement 
should be changed to a number which is the maximum 
BCD blocking factor allowed. 



Page No.lQiT] 
1 2 



Line 



Q&. 



Label 



TA.P.E.A.R. 



Operation 
20 



.I2A. 



OPERArf 
\ 

21 25 32 35 40/ 

i.,AA.OC.f.»A, . ./ 



The size factor (900) in columns 23-25 of this state- 
ment defines a tape buffer area which will accommo- 













Page No.lQjZl 


Line 

3 S 


Label Operotion 
« 1516 20 


fl 25 


30 


OPERAr/ 

35 40) 


b, 


MI.NPU.T, . , . 


BA,, 


l.x.4,5,0. ..,..,,,,,, , .1 



The size factor (450) in columns 23-25 of these state- 
ments defines a tape buffer area that can contain 5 
BCD card records (90 characters each). This factor can 
be increased according to the size of the available 
1401. Of course, this limit must not exceed the buffer 
size provided by the associated 7040/7044 Operating 
System (16/32K). 

Page No.lQiftl 
12 

OPERANT 

30 35 W 

-J I . I — 1 — I — . — 1 — I — . — i-jJ 



Line 



Ui 



Label 



Operation 



H.K.C.O,N. F, 



.iSL 



Qi!L- 



The operand in columns 21 and 22 of this statement 
should be changed to a number that is the maximum 
blocking factor allowed. 
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Appendix C. Syinbolic Unit Aissignment Subroutines 



S.SCHI Subroutine 

Calling Sequence: 

CALL S.SCHI (pi, p2) 
CALL S.SCHA 

Purpose: To search for the unit to which a given 
reservation code (in pi) is appended. The code in pi 
is to be expressed as a binary number. It should be used 
to find available units and units having intersystem 
reservation codes. 

Output: p2 will contain, in bits 21-35, the machine 
address of the Symbolic Units Table entry corre- 
sponding to pi. Bits 3-17 of p2 will contain the address 
of the first word of the system control block for that 
unit. 

If pi contains zero, then p2 will point to the first 
available unit found. 

A call to S.SCHA (without parameters) must not be 
the initial call to this routine, s.scha will search for the 
next entry in the Symbolic Units Table corresponding 
to pi. It will begin searching where the previous search 
left oflF and will exit with p2 set as above. 

Not Found Condition: If an entry is not found with 
a code corresponding to that in pi, or if pi is zero and 
an available unit is not found, p2 and the accumulator 
will contain zeros. 

S.SCOD Subroutine 

Calling Sequence: 

CALL S.SCOD (pi) 

Purpose: To encode a valid bcd unit specification so 
that it can be contained in an 18-bit field and used as 
input to subsequent subroutines. 

Input: pi and pl + 1 (if necessary) contain the bcd 
unit specification, left-justified, with trailing blanks, 
pl + l is not examined if pi contains a blank. 

Output: Bits 18-35 of the accumulator contain the 
encoded form. The bits are set as follows: 

MEANING 

Symbolic unit 
Miscellaneous unit 
Variable unit 

If bits 18-20 are set to 6 to specify a symbolic unit, 
bits 21-29 are as follows: 



BITS 


CONTENTS 


18-20 


6 




4 




5 



BITS 

21-29 



CONTENTS 
1 

2 
3 
5 

7 



MEANING 

LBl 

LB2 

IN 

OU 

PP 



CONTENTS 


MEANING 


11 


CKl 


100 + XX8 


Uxx 


330 +m 


PRAm 


310+m 


PUAm 


320 +m 


RDAm 


360 + m 


PRSm 


340 +m 


PUSm 


350 +m 


RDSm 



If bits 18-20 are set to 4 to specify a miscellaneous 
unit, bits 21-29 are as follows : 

BITS 

21-23 



24-29 



CONTENTS 


MEANING 





NONE 


1 


* ( in secondary only ) 


3 


lyy[R] 


4 


LIN 


5 


LOU 




Not used if bits 21-23 specify NONE 

nr * 


yys 


or 
lyy 


24 + yy8 


lyyR 


m+n 


LIN or LOU 




m=0 for tape, disk, or drum 




m= 20 for tape 




m=40 for disk or drum 




n=0 for any channel 




n=l for channel A 




n=2 for channel B 




n=3 for channel C 




n=4 for channel D 




n=5 for channel E 




n= 10 for channel V 




n= 11 for channel W 




n= 12 for channel X 




n= 13 for channel Y 




n =14 for channel Z 



If bits 18-20 are set to 5 to specify a variable unit, 
bits 21-29 are as follows: 



BITS 


CONTENTS 


MEANING 


21-23 



1 

2 


Any unit 

Tape 

Disk or drum 




2+m 


Disk or drum arm or module m 


24-29 




1-12 
13-24 
25-36 


(m=l = 5) 
Any channel 
Channel V, index 1-10 
Channel W, index 1-10 
Channel X, index 1-10 




37-50 
51-62 


Channel Y, index 1-10 
Channel Z, index 1-10 



The remaining bits indicate whether the unit is to be 
assigned a new intersystem reservation code. Bits 30-35 
are set as follows: 



BITS 


CONTENTS 


MEANING 


30-35 




yys 


No intersystem code 
= Iyy 



Error Conditions: If pi contains an unrecognizable 
set of characters, the ac will be zero upon return. 
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Note: It is the caller's responsibility to determiixe 
whether the field is vahd in his case ( e.g., the character 
* is a valid specification to s.scod, but it may not be 
acceptable in the context of the caller's $file card or 
FILE statement ) . 

S.SCHL Subroutine 

Calling Sequence: 

CALL S.SCHL (r, Ic, u) erret 
CALL S.SCHM (r, Ih, v, If) erret 

The following applies when the caUing sequence 

CALL S.SCHL is UScd. 

Purpose: To search for an available input or output 
unit of the type and channel specified; and for input, 
having a label that matches , a specified label control 
block. 

Input: r contains, in bits 21-35, an encoded variable 
unit reference as output from s.scod. Note that this 
routine will assign intersystem reservation codes. 

Ic contjains, in bits 21-35, the location of a nine- 
word label control block that has labeling information 
for the unit being searched for. A label control block 
is required for both input and output wnits. 

Output: u will contain, in bits 21-35, the address of 
the Symbolic Units Table entry for the first unit that 
satisfies the search specifications. If bits 30-35 of r are 
nonzero, and contain a value from 01-24, that value 
will be stored in the reservation code field of the system 
control block for which a match was found, provided 
that no other unit already has that reservation code. 

Not Found Conditions: If there are no units available 
of the type and channel desired, u will contain zeros 
in bits 21-35, and its sign will be made minus. 

If there are available units but none can be found 
that satisfy all the label search specifications, the oper- 
ator is notified of the label being sought and of an avail- 
able unit on which the file can be mounted. The 
operator has the choice of mounting the file on the 
specified unit, indicating an alternate unit to use, or 
terminating the job. 

Error Conditions: Return will be made to erret if 
any errors are detected in the calling sequence, a reser- 
vation code greater than 24 ( octal ) is to be assigned, 
or a duplicate reservation code is to be assigned. 

General: s.schl uses s.svun and s.svua to provide it 
with Symbolic Units Table entries. If labels are to be 
checked and ifsns is set to 1, all units are initially re- 
wound. After the label on each unit is checked, the unit 
is rewound again. (For output label searching, labels 
are checked only in a labels set 2 system.) s.schi is 
used to ensure that no duplicate reservation codes are 
assigned. 

lOLS must be in core storage when s.schl is called. 



The following appHes when the calling sequence 
call S.SCHM is used. 

Purpose: To searph for an available input or output 
unit of the type and channel specified, and for input 
having a label that matches any one of a given list of 
label control blocks. 

Input: r contains, in bits 21-35, an encoded variable 
unit reference of the type described as output from 
S.SCOD. It is equivalent to the input to s.schl. 

Ih is a fist header word of the form pze lt„ n where 
It is a list of n label control block pointers: 



It 



PZE Icbl 
PZE lcb2 
PZE lcb3 



PZE Icbn 



The label control blocks are required for both input 
and output units. 

Output: u will contain in 21-35 the address of the 
Symbolic Units Table entry for the unit found, or zeros 
if no unit is available or if no matching label can be 
found. 

If no units are available, .the prefix will be mze. 

If no matching label is found, the prefix will be pze. 

If a unit is found, and bits 30-35 of r are 01-24, that 
value will be stored in the system control block for 
which a match was found, provided that no other unit 
already has that reservation code. If will contain, in 
positions 21-25, the location in the It list of the pointer 
to the label control block for which the match was 
found. 

Error Conditions: Return will be made to erret if 
any errors are detected in the calling sequence, a res- 
ervation code greater than 24 (octal) is to be assigned, 
or a duplicate reservation code is to be assigned. 

General: When a label is read from a unit, the label 
will be matched against all the label control blocks 
specified by the list Ih. 

If the prefix of a Hst pointer is mze, rather than pze, 
that entry will be skipped. When a match is found, the 
pointer to the label control block giving the match will 
be placed in If. A label control block can be eliminated 
from subsequent searches by setting the pointer prefix 

to MZE. 

lOLS must be in core storage when this routine is 
called. 

Note that, unhke s.schl, no operator intervention is 
provided. 

Subroutines Used: s.svun, s.svua, and s.schi are 
used by s.schm. 

Output from S.SCHL and S.SCHM: Figure 40 illus- 
trates the output of these calling sequences. 
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LABELS 


S.SCHL 


S.SCHM 


= INPUT 


operator option on first 
available 


none available 


OUTPUT 


first available 


first available 


= 1 INPUT 


first available that 


first available that 




matches* 


matches 


OUTPUT 


first available 


first available 


= 2 INPUT 


first available that 


first available that 




matches* 


matches 


OUTPUT 


first available that has 


first available that has 




expired* 


expired 



♦indicates operator option if no match or if label has not expired, erret 
is taken if one of the foilov/ing conditions occurs: 

1. Encoding of r is in error. 

2. A reservation code greater than 248 is to be assigned. 

3. A duplicate reservation code is to be assigned. 

Figure 40. Output from S.SCHL and S.SCHM 



S.SVUN Subroutine 

Calling Sequence: 

CALL S.SVUN (pi, p2) erret 
CALL S.SVUA, erret 

Purpose: To find an available unit of the type, 
channel, and number specified. 

/npMf; pi contains, in bits 18-35, an encoded vari- 
able unit reference of the type generated as output by 
s.scoD. Note that this routine will not assign an inter- 



systfem reservation code (it ignores the six low-order 
bits). 

Output: p2 will contain, in bits 21-35, the machine 
address of the Symbolic Units Table entry for the unit. 

Errors: If pi is encoded incorrectly, return is to 
erret. If no unit is available, p2 will contain zeros and 
a normal routine is taken. 

Note: A call to s.svua will find the next available 
unit (after that found by s.svun) that meets the same 
specifications as those given for the previous unit. Out- 
put is the same as for s.svun and is placed in p2. This 
entry cannot be used if the previous unit specified was 
a symbolic arm or module, or if the previous call re- 
sulted in an error. 

S.SLDS Subroutine 

This subroutine is loaded from the Subroutine Library 
by iBLDR when the mounting option is defer and label 
search is specified in the units field of the file state- 
ment or «FiLE card. The location of the subroutine is 
stored in bits 3-17 of word fcfcn of the file control 
block. The subroutine is entered from iols when a file 
is opened or unit switched, and the primary or second- 
ary unit field specifies that a label search is required. 
The user cannot use s.slds, but he can cause iols to 
use it by putting its location in bits 3-17 of word lcfcn, 
and setting the appropriate codes in word lcuni. 
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Appendix D. Processing the $CHANNEL Card (IMCHA Routine) 



Using the information in the schannel card, the imcha 
routine establishes equivalences between the specified 
symbolic channels and the real channels. The imcha 
routine also establishes equivalences between any 
specified symbolic modules and the real disk or drum 
modules. The equivalences established must satisfy all 
requirements in the $channel card except the maxi- 
mum tape or disk requirements; if such requirements 
are given, the equivalences must be the best possible 
set in terms of satisfying the maximum requirements. 
If the maximum tape or disk requirements cannot be 
met, the number of units available must at least be 
equal to the sum of all the units specified for all the 
symbolic channels. 

Tables are used in choosing the best set of equiva- 
lences. The most important are the Totals Table, the 
Arm Table, the Array Table, and the Main Table. 

The Totals fable contains entries indicating the total 
number of disk areas, drum areas and tape units avail- 
able; the table also indicates the number of such units 
and areas requested. 

The Arm Table contains an entry for each disk or 
drum module and indicates the number of areas avail- 
able for each. Each entry in the Arm Table also con- 
tains a five-bit segment that is used in developing 
symbolic module equivalences. 

The Array Table is a 20-word table in which sym- 
bolic module equivalences are developed for each 
possible set of symbolic channel equivalences. At the 
end of the processing done by the imcha routine, the 
appropriate words are moved from the Array Table 
into the symbolic channel table in ibnuc. 

The Main Table is a matrix containing a row for each 
symbolic channel and a column for each real channel. 
Each element of the matrix is set to 63; the elements 
are then reduced by varying amounts as the corre- 
sponding equivalences between real and symbolic 
channels are found to be less than optimal. An element 
is set to zero only if the corresponding equivalence 
is impossible to establish. 

At the beginning of the imcha routine, the hardware 
tables in ibnuc are scanned and the Totals Table and 
Arm Table are set up. Then the $channel card is 
scanned and the various parameters are converted to 
entries in the tables. 
If a given number of tape or disks units is required 



for a particular symbolic channel, the Totals Table is 
scanned to determine which real channels have the 
required number of units available. If any real channel 
does not have the required number of units available, 
the element in the Main Table corresponding to that 
real channel and the given symbolic channel is set 
to zero. 

If a maximum number of tape (or disk) units is 
specified for a given symbolic channel, the same check 
of the Totals Table is made. However, if a real channel 
is found that does not have the maximum number of 
units available, then the difference between the maxi- 
mum specified and the number available is multiplied 
by the device bias factor, and the result is subtracted 
from the appropriate element in the Main Table. (This 
operation will never reduce an element to less than 
one. ) If it is specified that a given symbolic channel 
must not be made equivalent to a particular real chan- 
nel, the element of the Main Table corresponding to 
this equivalence is set to zero. If it is specified that a 
given symbolic channel must be equivalent to a partic- 
ular real channel, the routine will not set the symbolic 
channel equivalent to any other real channel, and will 
not set any other symbolic channel equivalent to this 
real channel. Therefore, every element except the cor- 
responding one in the Main Table is set to zero. If a 
system unit code or intersystem reservation code is 
used, the corresponding real channel is found and 
treated as above. 

If one or more symbolic modules are specified for 
a given symbolic channel, the five-bit segments of the 
Arm Table entries are used as a five-by-n matrix, with 
the five columns corresponding to the five symbolic 
modules and the n rows corresponding to the n real 
modules. Essentially the elements of this matrix are 
given the same treatment as the elements of the Main 
Table, with respect to the specifications given for each 
symbolic module. The matrix is then divided into sub- 
matrixes, one per channel, and each is examined to see 
if a solution can be found. If a solution is found, it is 
transcribed into the Array Table for use if the cor- 
responding equivalence is used. If no solution is found, 
the corresponding element of the Main Table is set to 
zero. When this process has been repeated for each of 
the submatrixes, there will be a mapping of symbolic 
modules to real modules for every equivalence of the 
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current symbolic channel to a real channel, except those possible solutions. A solution must have a nonzero 

for which the corresponding elements in the Main element for each specified symbolic channel (row), 

Table are zero. no two of which are on the same real channel 

When the entire $channel card has been processed, (column). :^ach solution has a value consisting of the 

the Main Table will contain nonzero elements only for sum of its elements. The solution with the greatest 

usable equivalences. The table is then examined for value is used. 



Appendix D. Processing the $CHANNEL Card ( IMCHA Routine ) 103 



Index 



Abbreviated Table of Contents 6, 7, 43 

IMEXE routine 46 

location and length 38 

accounting routine, installation 45 

ACV routine '^^ 

add subroutine ( COBOL) 89 

AFTER card 26 

ALLOW macro-instruction H 

alternate system input file 55 

alternate system output file 55 

assembly, system 

machine configuration 9 

input/output device assignment 10 

options 11 

parameters " 

priority processing 13 

unit record intierrupts 13 

Subroutine Library options 14 

System Editor options 14 

ATTACH macro-instruction 10, 11 

attaching input/output devices (IMATT) 47 

auxiliary programs ( 1401 ) 98 

available units 57 

AVLUNI 52 

backup library 15 

BCD card format 59 

binary card format 59 

control dictionary 60 

program text, relocatable 61 

blank COMMON 64 

Bootstrap routine 6, 20 

CALLS card 24 

CBAVL 52 

chain program, inserting 32 

Change Communication Region routine 45 

$CHANNEL card 102 

channel assignment, symbolic 30 

checkpoint (S.NAPT and S.SFBL) 41 

check sum 17, 60 

COBOL 

Compiler 77 

files assigned to system units 84 

input/output unit allocation 83 

library subroutines 84 

processor limitations 82 

special operands 81 

communication subroutines 74 

compare subroutine ( COBOL ) 88 

complex field decrements and addresses 63 

"constant addresses and decrements 62 

constants ( system data area ) 38 

control 

blocks 43 

cards, Editor 21 

cards, Editor parameter 24 

dictionary, binary 60 

group 62 

control section entries 61 

convert subroutine error exits 76 

copy and reload file, system 56 

copying (DUP Card) 26 

CORE option 23 

CPRPU 12 

Cross Reference Dictionary 69 
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DCT routine "^3 

DCV routine ^1 

debug assembly parameters 94 

Debug Subroutine Library 32, 94 

debugging dictionary 94 

Debugging Processor 93 

deck name entry 61 

dependency list 91 

detach routine ( IMDET) . . .- 47 

device assignment 19 

device number 19 

device type numbers 10 

dictionary 

reduction "9 

reference addresses and decrements 63 

disk and drum formats H 

disk and drum orders 68 

display subroutine (COBOL) 88 

divide subroutine ( COBOL) 89 

DMP routine ^4 

DPOPT 73 

DUMP 74 

Dump 

program 50 

routine 44 

DUP card 26 

ECV routine 72 

edit 

file 55 

run for disk 30 

runs, examples of 30 

editing 

instructions, initial 15 

instructions, symbolic ^^30 

Editor 

components, system 17 

control cards 21 

input 17 

messages 33 

Monitor 17 

parameter cards 24 

program 19, 28 

EDTFIL option 23 

$ENDEDIT card 23 

engineering words 36 

EOMTR 12 

ERRIN 14 

Error Editor 67, 69 

error exits, subroutine (FORTRAN) 76 

ERROU 14 

ERRPP 14 

ETC card 24 

even entries 61 

examine subroutines ( COBOL ) 88 

exponentiation subroutine (COBOL) 89 

external reference entries 61 

EXTRA -72 

FCV routine 72 

file 

control blocks 54 

entries 61 

maintenance 56 

text 62 
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fixed-point conversion 72 

flags, communication 40 

floating-point conversion 71, 72 

format conversion routines 71 

FORTRAN 

Compiler 70 

file routines ; 74 

routine storage requirements 75 

subroutine error exits 76 

system routines 71 

FPT routine 73 

FPTLIM 73 

FPULIM 73 

FTCENT 52 

GERP 52 

GETMES 73 

HCV routine 72 

IBDINZ 94 

$IBEDT card 21 

IBJOB 51 

IBLDR 59 

IBLTZ 12 

IBNUC 11 

IBOOT 6 

IBPER 12 

IBRSL 12,13 

IBRTZ 12 

IBTRAN 94 

ICV routine 72 

lEDBG '.'.'.'.'. .32,94 

lELCT 14 

lELFG 14 

lEROl 14 

IER03 14 

lEWST ; " 14 

IF Alphabetic subroutine 90 

IF Numeric subroutine 90 

IF162 12 

IFCHO 12 

IFCHT 13 

IFCLK 11 12 

IFLSC '12 

IFRPM 11 

IFSHF 12 

IFSNS 12 

IFTYP 13 

IFURA '..'.'.'.'.'.'.'..12,13 

IMAST routine 45 

IMATT routine 47 

IMBDC routine 49 

IMCBC ..... 52 

IMCHA routine 49 102 

IMCHN '.'.'.'.'.. .\ 52 

IMCLO routine 47 

IMDBL 52 

IMDET routine 47 

IMDLY routine 47 

IMECH 52 

IMENT '.'.'.'.'.'.'.'.'.. 52 

IMEXE routine 45 

IMFTC '.'.'.'. 52 

IMINT routine 46 

IMJIE '54 

IMJOB 52 

IMLDR '''..'' 52 

IMLIS routine 48 

IMLNK ^ . . . ! 52 

IMLSU routine 47 

IMMAP ''..'' ^ . 52 

IMMON routine 45 



IMOID routine 48 

IMOPN routine 49 

IMPAS routine . ^. 46 

IMPAU routine 48 

IMPRE 52 

IMPUN routine ' 48 

IMRCD routine 46 

IMREL 52 

IMRES routine 48 

IMRLD 52 

IMSCN routine 46 

IMSRT routine 45 

IMSTO routine 48 

IMSWI routine 47 

IMSYS routine ! . ! ! ' 45 

IMTIF routine 48 

IMTIM routine 49 

IMTIS routine ^ ! ^ ! 48 

IMUNI routine 49 

IMUNL routine 48 

IMUQI routine 46 

INCLOS '52 

INCLSM 52 

INCWD . . ! 13 

Index 7 

Indexing Analyzer 71 

initial editing instructions 15 

initial system unit requirements 15 

INJOB routine 46 

Input Editor 96 

input file, system 54 

Input/Output Control System 50 

Input/Output Subroutine Error Exits 76 

Input/Output Utility Program 98 

INSAVE 52 

INSERT card 24 

inserting a relocatable subroutine . 31 

installation accounting routine 45 

Instruction Generator and Index Generator 71 

integer conversion ( ICV ) 72 

Interface 67 68 

interrupt test, operator 44 

interrupts, unit record .' . . 13 

IQRSC routine 49 

IQRST routine 49 

JBKILL 52 

JBSCAN 52 

JOBERR 52 

JOBIN 53 

JOBINM 53 

JOBOU 53 

[OBOUL 53 

TOBOUM 53 

joBPP :.:::::: 53 

LABEL (edit option) 22 

LABELS (assembly parameter) 12 

labels 56 

LABSW 12 

Lev routine 72 

LDAVL 54 

LDRSTK 54 

LIRE card 28 

LIBEND card 28 

LISTSW 13 

LMAX 94 

load area 36 

load file, system 55 

Loader 

IBLDR 59 

System ( S.SLDR) 43 

long form complex 63 
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L.UPPG 53 

machine-oriented subroutines 73 

error exits 76 

machine use, words allocated for 36 

Macro Assembly Program 67 

MAP Symbolic Update Program 98 

MESLIM 73 

MIN option 23 

MODIFY card 25 

MOVPAK routine (COBOL) 85 

Multiply subroutine ( COBOL) , . 89 

MXBLK option 23 

MXCLK 12, 46 

NOMAP option 23 

NOSOURCE option 22, 23 

Nucleus 36 

reassembly adjustments 31 

routines 43 

object-time routines 95 

OCLOS 54 

OCLOSM 54 

OCT card 30 

OCV routine 72 

ODDLIM 73 

operator interrupt test 44 

orders, disk and drum 68 

Output Editor 96 

output file, system 55 

OVF routine 74 

page 

heading 53 

numbering 53 

PAGHD 53 

paging 97 

PCLOSE 54 

PDUMP 74 

PGNUM 53 

Phase A ( MAP) 68 

Phase B ( MAP) 69 

PIMENT 54 

PIREL 54 

POEDIT 54 

postprocessor 95 

PPAVL 54 

preface entry 61 

preprocessor 93 

priority processing 13 

Processor ( IBJOB ) 51 

files ' 54 

Monitor 51 

program deck . 59 

punch, file, system 55 

PVARJ 54 

PWS routine 74 

RDNRT, 12 

reassembly Nucleus 31 

Recall routine. System Monitor 44 

Recognizable Control Card Table 38, 43 

reference point entries 61 

relative addresses and decrements 62 

reload file, system copy and 56 

Reload Program . 65 

relocatable 

binary program text 61 

subroutine, inserting 31 

REMARK card 28 

REMOVE card 26 

REPLACE card ... 25 

replacement using symbolic editing 30 

Restart routine 45 

Return routine 44 



REWIND card 28 

round or truncate subroutine ( COBOL ) 89 

RUPSW 12 

RWD routine * • 72 

S.BDMP 37 

S.BSLA 38 

S.BSR 37 

SCA routine 73 

scale subroutine ( COBOL) 90 

SCAN routine 49 

S.CKPT 37 

S.CLSE 37 

S.CLSL 37 

S.EDUN 42 

S.FBCP 54 

S.FBED 54 

S.FBIA 54 

S.FBIN 54 

S.FBLD 54 

S.FBOA 54 

S.FBOU 54 

S.FBPP 54 

S.FEOR 37 

S.GETB 37 

S.GETL 37 

SHARE 13 

short form complex . 63 

S.IAUN 42 

S.IOLS 37 

S.IOOP 37 

S.JNAM 41 

SLN routine 74 

SLT routine 74 

S.NAPT 41 

snapshot 41 

S.OAUN 42 

S.OPEN 37 

S.OPNL 37 

SOURCE option 22, 23 

special entry . . '. 63 

S.PGCT 39, 53, 97 

S.PLOC 37 

S.PUTB . . ; '37 

S.PUTL 37 

S.REW 37 

S.SAVE 39, 44, 52 

S.SCCR 37 

S.SCDI 39 

S.SCIS 39 

S.SCKT : 37 

S.SCLK 39 

S.SCMX 38 

S.SCOR 38 

S.SCSN 38 

S.SCUR 39 

S.SDAT 38 

S.SDBG 42 

S.SDEX 39 

S.SDMP 37 

S.SEND 11,23 

S.SFAZ 39 

S.SFBL 41 

S.SFLG 39 

S.SHDR 39 

S.SIDR ; . . 37 

S.SLDR 37 

S.SLOC 64 

S.SLTC 38 

S.SLVL 38 

S.SORG 11 

S.SPER 38 

S.SPND 38 
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S.SPRP 42 

S.SRCC oQ 

S.SRET orr 

S.SRPT •' ^ ^ '.' ^ ' ^ .'.'.' ^ ^ '' ^ '' ^ ^ .' ^ ''"'."' 37 

S.SRST o^ 

S.SRVP 37 

S.SRUS '.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.. 42 

S.SSBC qO 

S.SSCH 4? 

S.SSNS 4; 

S.SSWI qq 

S.SUBC 00 

S.SUNI . 'r.a 

S.SYCV 42 

S.SYCW . 42 

S.SYCX ; • • 42 

S.SYCY 42 

S.SYCZ 42 

S.SYFS 42 

standard entry f>n 

S.TPBF 37 

storage 

allocation oa 

Allocator 70 

requirements, FORTRAN subroutine . . ..... 75 

subroutine 

Dependence Table 92 

insertion oi 

Library q. 

Name Table qi 

SUBHD 53 

subtract subroutine ( COBOL ) so 

o . ' ou 

supervisor ^c 

SUPRES 7^ 

S.WEF '.'.'..'.'.'.'.'.'.'.'...'. 37 

SWT routine ,7 . 

S.XACT '^ 

S.XCPS 4,^ 

S.XDAC ^i 

S.XDVA ii 

S.XDVD 3^ 



S.XLTP 41 

S.XOVA 37 

S.XOVD 37 

S.XPRT . . . ., 37 

S.XPSE 37 

S.XSCH 41 

S.XSNS ' 41 

S.XTDT 41 

S.XTPS 41 

S.XUCV './.'.'.'.'.'.'." 37 

symbolic 

channel assignment 30 

editing, replacement using 30 

master file ig 

unit reference 3Q 

Units Table ^2 

Update Program qq 

SYSHD '.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'. m 

System Editor 17 

System Library g 

System Monitor '^fi 

SYSTUS '.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'." "S: 

Table of Contents R ar ko 

TESTIO '.'.'.'.'.'.'..'.:'..'.'.'.'.'. U 

time of day "^Q 

TMAX 94 

TPOPN 13 

transfer words 37 

trap words .'...'.'.'.'.'.'.'.'.'.'.'.'..36,37 

Tl text 7Q 

^^ ^^^^ 68, 70 

Unit 

assignment subroutines, symbolic 99 

requirements ig 

Update Program, Symbolic 98 

work units gg 

XCV routine 73 

XEM routine 74 

XIT routine 74 
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